diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 61f19b032..de61d09e9 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -2675,6 +2675,7 @@ Public Class ClsInventarios
DataAdapter("PA_Inv_InventarioFisicoResultadoAvance")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index a704afaf3..1a74dda78 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4847,7 +4847,7 @@ Public Class ClsPaginas
PaginaDict.Add("/RH/RepVacaciones.aspx".ToUpper(), 422)
PaginaDict.Add("/RH/CatChecadorTipo.aspx".ToUpper(), 427)
PaginaDict.Add("/RH/CatChecadorHorarios.aspx".ToUpper(), 428)
- PaginaDict.Add("/RH/CatChecadorEstaciones.aspx".ToUpper(), 627)
+
PaginaDict.Add("/RH/RepChecadorPreAsistencia.aspx".ToUpper(), 628)
PaginaDict.Add("/RH/CatCaptaciones.aspx".ToUpper(), 629)
PaginaDict.Add("/RH/RepUniformes.aspx".ToUpper(), 630)
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a9908b91c..e09ec3014 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -6,7 +6,7 @@ Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports System.Xml
Imports System.IO
-Imports iTextSharp.text
+Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports Stimulsoft.Report
@@ -17,8 +17,8 @@ Imports Stimulsoft.Report.Web
Partial Class PopUpVerFactura
Inherits ClsPaginas
- Private Shared missing As Object = System.Reflection.Missing.Value
-
+ Private Shared missing As Object = System.Reflection.Missing.Value
+
#Region " PROPIEDADES "
Public Property DtMovimientos() As DataTable
Get
@@ -85,18 +85,18 @@ Partial Class PopUpVerFactura
End If
Return ""
End Get
- End Property
- 'Private Property SessionPorImpresion As Boolean
- ' Get
- ' Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
- ' End Get
- ' Set(value As Boolean)
- ' ViewState("SessionPorImpresion") = value
- ' End Set
- 'End Property
+ End Property
+ 'Private Property SessionPorImpresion As Boolean
+ ' Get
+ ' Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
+ ' End Get
+ ' Set(value As Boolean)
+ ' ViewState("SessionPorImpresion") = 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
'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN
@@ -201,10 +201,10 @@ Partial Class PopUpVerFactura
End If
- End Sub
-
+ End Sub
+
#Region "U S U A R I O - T O K E N"
-
+
Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
Dim UsuarioToken As Usuario = Nothing
@@ -238,9 +238,9 @@ Partial Class PopUpVerFactura
UsuarioToken.Empresa = ObjEmpresa.Empresa
End If
ObjEmpresa.Dispose()
- End Sub
+ End Sub
#End Region
-
+
Private Sub SeleccionaReporte(UrlParametros As Hashtable)
'DESCARGA COMPROBANTE
@@ -501,10 +501,10 @@ Partial Class PopUpVerFactura
URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
Next
Return URLParametros
- End Function
-
+ End Function
+
#Region "OP = CORT - IMPRIMIR CORTE"
-
+
Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
Dim ObjVenta As New ClsVentas
Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -549,10 +549,10 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato)
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region " OP = FACTURA - IMPRIME COMPRA"
Private Sub DescargaComprobante(Parametros As Hashtable)
If Parametros("COMPROBANTE") IsNot Nothing Then
@@ -591,9 +591,9 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS"
Private Sub DescargaXMLViaticos(Parametros As Hashtable)
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
@@ -613,10 +613,10 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES"
Private Sub DescargaXMLUtilidades(Parametros As Hashtable)
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
@@ -636,9 +636,9 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -680,10 +680,10 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
- End Sub
+ End Sub
#End Region
-
-
+
+
#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
If CveVenta > 0 Then
@@ -720,10 +720,10 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
If CveMovimiento > 0 Then
@@ -848,12 +848,12 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
-
+
Private Sub DescargaXMLTraslado(Parametros As Hashtable)
If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
@@ -872,12 +872,12 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO"
-
+
Private Sub DescargaPDFTraslado(Parametros As Hashtable)
If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
@@ -896,10 +896,10 @@ Partial Class PopUpVerFactura
End If
Archivo = Nothing
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region " OP = 'Vta,Fact' - IMPRIME PDF VENTAS"
Private Sub DescargaFacturaVenta(Parametros As Hashtable)
If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then
@@ -1209,11 +1209,11 @@ Partial Class PopUpVerFactura
End If
End If
- End Sub
+ End Sub
#End Region
-
+
#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
-
+
Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
Dim ObjInventarios As New ClsInventarios
@@ -1284,8 +1284,8 @@ Partial Class PopUpVerFactura
Dim CveMovimientoRelacionado As Integer = -1
Dim FolioRelacionado As String = ""
- Dim CveConceptoMovtoRelacionado As Integer = -1
-
+ Dim CveConceptoMovtoRelacionado As Integer = -1
+
Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero
'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
@@ -1296,7 +1296,7 @@ Partial Class PopUpVerFactura
CveConceptoMovtoRelacionado = 37
ElseIf CveConcepto.Contiene(36, 37) Then
FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
- CveConceptoMovtoRelacionado = 3
+ CveConceptoMovtoRelacionado = 3
ElseIf CveConcepto.Contiene(2) AndAlso CveTipoAlmacen.Contiene(24, 25) Then
FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
CveConceptoMovtoRelacionado = 3
@@ -1308,10 +1308,10 @@ Partial Class PopUpVerFactura
Dim CantidadProductos As Decimal = 0
Dim CantidadUsados As Decimal = 0
- If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
+ If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
DtMovimientos = ObjInventarios.DtResultados
-
+ Alert("asdf")
DtMovimientos.Columns("No").AutoIncrement = True
DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
DtMovimientos.Columns("No").AutoIncrementStep = 1
@@ -1355,27 +1355,27 @@ Partial Class PopUpVerFactura
End If
End If
- If UsuarioActual.CveEmpresa = 140 AndAlso CveCompra > 0 Then
- If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
- Dim DtFaltante As DataTable = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0")
- If DtFaltante.Rows.Count > 0 Then
- Dim SbPendientes As New StringBuilder
- SbPendientes.AppendFormat("Los siguientes productos quedaron pendientes por recibir:")
- For Each Row As DataRow In DtFaltante.Rows
- SbPendientes.AppendFormat(" PS:{0} Cant.:{1:N0},", Row("CodigoPS"), Row("CantidadF"))
- Next
- SbPendientes.Remove(SbPendientes.Length - 1, 1)
-
- SbPendientes.AppendFormat(" Total Cant.:{0:N0}, Total Costo:{1:N2}", DtFaltante.SUM("CantidadF"), DtFaltante.SUM("Total"))
-
- If Not String.IsNullOrEmpty(Observaciones) Then
- Observaciones = SbPendientes.ToString() + ".
" + Observaciones
- Else
- Observaciones = SbPendientes.ToString()
- End If
- End If
- DtFaltante.Dispose()
- End If
+ If UsuarioActual.CveEmpresa = 140 AndAlso CveCompra > 0 Then
+ If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+ Dim DtFaltante As DataTable = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0")
+ If DtFaltante.Rows.Count > 0 Then
+ Dim SbPendientes As New StringBuilder
+ SbPendientes.AppendFormat("Los siguientes productos quedaron pendientes por recibir:")
+ For Each Row As DataRow In DtFaltante.Rows
+ SbPendientes.AppendFormat(" PS:{0} Cant.:{1:N0},", Row("CodigoPS"), Row("CantidadF"))
+ Next
+ SbPendientes.Remove(SbPendientes.Length - 1, 1)
+
+ SbPendientes.AppendFormat(" Total Cant.:{0:N0}, Total Costo:{1:N2}", DtFaltante.SUM("CantidadF"), DtFaltante.SUM("Total"))
+
+ If Not String.IsNullOrEmpty(Observaciones) Then
+ Observaciones = SbPendientes.ToString() + ".
" + Observaciones
+ Else
+ Observaciones = SbPendientes.ToString()
+ End If
+ End If
+ DtFaltante.Dispose()
+ End If
End If
If CveTipoAlmacen = 20 Then
@@ -1535,38 +1535,38 @@ Partial Class PopUpVerFactura
End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
- ElseIf UsuarioActual.CveEmpresa = 140 Then
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
- Dim concepto As String = ""
- If CveConcepto.Contiene(2, 32, 33) Then
- concepto = "ENTRADA DE ALMACÉN"
- ElseIf CveConcepto.Contiene(36) Then
- concepto = "ENTRADA VIRTUAL"
- End If
-
- params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
- params.Add(New ReportParameter("Concepto", concepto))
- params.Add(New ReportParameter("Almacen", Almacen))
- params.Add(New ReportParameter("Fecha", Fecha))
- params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
- params.Add(New ReportParameter("Folio", Folio))
- params.Add(New ReportParameter("FacturadoA", NombreCliente))
- params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
- params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
- params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
- params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
- 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
- params.Add(New ReportParameter("Observaciones", Observaciones))
- params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
- params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
- params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
-
- ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+ ElseIf UsuarioActual.CveEmpresa = 140 Then
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ Dim concepto As String = ""
+ If CveConcepto.Contiene(2, 32, 33) Then
+ concepto = "ENTRADA DE ALMACÉN"
+ ElseIf CveConcepto.Contiene(36) Then
+ concepto = "ENTRADA VIRTUAL"
+ End If
+
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("Concepto", concepto))
+ params.Add(New ReportParameter("Almacen", Almacen))
+ params.Add(New ReportParameter("Fecha", Fecha))
+ params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+ params.Add(New ReportParameter("Folio", Folio))
+ params.Add(New ReportParameter("FacturadoA", NombreCliente))
+ params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
+ params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
+ params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
+ params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
+ 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ params.Add(New ReportParameter("Observaciones", Observaciones))
+ params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+ params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+ params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+
+ ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
Else
params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen)))
@@ -1616,6 +1616,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
+ params.Add(New ReportParameter("Observaciones", Observaciones))
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
If (UsuarioActual.CveEmpresa = 72) Then
@@ -1624,7 +1625,7 @@ Partial Class PopUpVerFactura
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
End If
- Case 3, 16, 37 ' S A L I D A S
+ Case 3, 16, 37, 40 ' S A L I D A S
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -1632,7 +1633,7 @@ Partial Class PopUpVerFactura
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)
Dim concepto As String = ""
- If CveConcepto = 3 Then
+ If CveConcepto.Contiene(3, 40) Then
concepto = "SALIDA DE ALMACÉN"
ElseIf CveConcepto = 37 Then
concepto = "SALIDA VIRTUAL"
@@ -1797,7 +1798,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
- params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+ params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
@@ -2323,7 +2324,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
- params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
End If
@@ -3327,10 +3328,10 @@ Partial Class PopUpVerFactura
ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
End If
End If
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = 'VAL' - IMPRIME PDF VAL"
Private Sub GenerarPDFVale(CveVale As Integer)
@@ -3360,9 +3361,9 @@ Partial Class PopUpVerFactura
'End If
End If
ObjAF.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'OS' - IMPRIMIR PDF OS"
Private Sub GenerarPDFOS(CveOS As Integer)
Dim ObjOS As New ClsOS()
@@ -3481,9 +3482,9 @@ Partial Class PopUpVerFactura
TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'OI' - Crear Archivo "
Private Sub CrearArchivo(Archivo As String)
Dim ObjEventos As New ClsOIEventos
@@ -3492,11 +3493,11 @@ Partial Class PopUpVerFactura
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
DescargarArchivo(file)
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "OP = 'Contratos' - Crear Archivo "
Private Sub CrearArchivoContratos(Archivo As String)
@@ -3504,11 +3505,11 @@ Partial Class PopUpVerFactura
Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server
DescargarArchivo(file)
- End Sub
-
-
+ End Sub
+
+
#End Region
-
+
#Region "OP = 'OI' - Descargar Archivo "
Private Sub DescargarArchivo(File As System.IO.FileInfo)
If File.Exists Then 'set appropriate headers
@@ -3538,11 +3539,11 @@ Partial Class PopUpVerFactura
Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
End If 'nothing in the URL as HTTP GET
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'AFR' - AF"
-
+
Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
Dim ObjAF As New ClsAF
'Dim ObjSubProyecto As New ClsSubProyectos
@@ -3646,7 +3647,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("RFC", dr("RFC").ToString))
params.Add(New ReportParameter("Puesto", dr("Puesto").ToString))
params.Add(New ReportParameter("PuestoEntrego", dr("PuestoEntrego").ToString))
- params.Add(New ReportParameter("Departamento", dr("Departamento").ToString))
+ params.Add(New ReportParameter("Departamento", dr("Departamento").ToString))
params.Add(New ReportParameter("DepartamentoEntrego", dr("DepartamentoEntrego").ToString))
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
@@ -3729,9 +3730,9 @@ Partial Class PopUpVerFactura
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'POL' "
Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
'Dim ObjConta As New ClsContabilidad
@@ -3770,9 +3771,9 @@ Partial Class PopUpVerFactura
ObjPoliza.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'CAN' - CANCELACION"
Public Sub ImprimeCancelacion(CveVenta As Integer)
Dim ObjVentas As New ClsVentas
@@ -3797,9 +3798,9 @@ Partial Class PopUpVerFactura
End If
ObjVentas.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = 'DC' - DEPOSITOS CAJA"
Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String)
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3826,11 +3827,11 @@ Partial Class PopUpVerFactura
ObjIE.Dispose()
- End Sub
+ End Sub
#End Region
-
+
#Region "I E C H E Q U E S"
-
+
Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
Dim CveTipoTransaccion = -1
Dim ObjIE As New ClsBancos()
@@ -4237,21 +4238,21 @@ Partial Class PopUpVerFactura
ParamComprobacion.Dispose()
ObjIE.Dispose()
- End Sub
-
+ End Sub
+
#End Region
-
+
#Region "OP = RECIBO DE PAGOS"
Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)
PDFReciboDePagos(CveVenta, CveIE, -1)
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = VTA - PyME"
-
- ' 04/05/2018 - Pruebas de impresion de factura PyME
+
+ ' 04/05/2018 - Pruebas de impresion de factura PyME
Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
Dim File As FileInfo = New FileInfo(Directorio1)
@@ -4306,9 +4307,9 @@ Partial Class PopUpVerFactura
Else
RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
End If
- End Sub
+ End Sub
#End Region
-
+
#Region "OP = ENTREGAS - Entregas por realizar"
Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
Dim Correcto As Boolean = False
@@ -4331,79 +4332,79 @@ Partial Class PopUpVerFactura
End Sub
#End Region
-#Region "OP = Etiqueta - Etiquetas de recepcion"
- Private Sub ImprimirEtiqueta(CveMovimiento As Integer, Modalidad As String)
-
- Dim ObjInventarios As New ClsInventarios
-
- Dim All As Byte()
- Using ms As New MemoryStream
- Using d As New Document
- Using Copy As New PdfCopy(d, ms)
- d.Open()
- If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
- If ObjInventarios.DtResultados IsNot Nothing Then
- For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows
- Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero
- Dim Lote As String = DetalleRow.Item("Lote").ToString
- Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
- Dim PS As String = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
- If Modalidad = "Individual" Then
- Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
-
- Dim reader As New PdfReader(reporteByte)
- Dim Paginas As Integer = reader.NumberOfPages
- Dim Contador As Integer = 0
- While Contador < Paginas
- Contador += 1
- Copy.AddPage(Copy.GetImportedPage(reader, Contador))
- End While
- Else
- Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
-
- For contador As Integer = 0 To Cant
- Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
-
- Dim reader As New PdfReader(reporteByte)
- Dim Paginas As Integer = reader.NumberOfPages
- Dim Cont As Integer = 0
- While Cont < Paginas
- Cont += 1
- Copy.AddPage(Copy.GetImportedPage(reader, Cont))
- End While
- Next
- End If
- Next
- End If
- End If
- d.Close()
-
- End Using
- End Using
- All = ms.ToArray()
- End Using
- ImprimirbytesPDF(All, "Etiquetas")
-
-
- If Modalidad = "Individual" Then
- Else
-
- End If
- ObjInventarios.Dispose()
- End Sub
-
- Private Function GenerarEtiqueta(CvePS As Integer, Lote As String, FechaCaducidad As Date, PS As String) As Byte()
- Dim QrDescarga As String = ""
- Dim Cfdi As New RVCFDI33.GeneraCFDI()
- Dim b As Byte() = Cfdi.ConvertirQrCode(String.Format("?CvePS={0}&Lote={1}&Fecha={2}", CvePS, Lote, Format(FechaCaducidad, "dd/MM/yyyy").ToString()))
- QrDescarga = Convert.ToBase64String(b)
- Dim params As New List(Of ReportParameter)
- params.Add(New ReportParameter("QR", QrDescarga))
- params.Add(New ReportParameter("PS", PS))
- params.Add(New ReportParameter("Lote", Lote))
- params.Add(New ReportParameter("FechaCad", FechaCaducidad.ToString()))
- Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", New DataTable, params)
+#Region "OP = Etiqueta - Etiquetas de recepcion"
+ Private Sub ImprimirEtiqueta(CveMovimiento As Integer, Modalidad As String)
+
+ Dim ObjInventarios As New ClsInventarios
+
+ Dim All As Byte()
+ Using ms As New MemoryStream
+ Using d As New Document
+ Using Copy As New PdfCopy(d, ms)
+ d.Open()
+ If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
+ If ObjInventarios.DtResultados IsNot Nothing Then
+ For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows
+ Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero
+ Dim Lote As String = DetalleRow.Item("Lote").ToString
+ Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
+ Dim PS As String = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
+ If Modalidad = "Individual" Then
+ Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
+
+ Dim reader As New PdfReader(reporteByte)
+ Dim Paginas As Integer = reader.NumberOfPages
+ Dim Contador As Integer = 0
+ While Contador < Paginas
+ Contador += 1
+ Copy.AddPage(Copy.GetImportedPage(reader, Contador))
+ End While
+ Else
+ Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
+
+ For contador As Integer = 0 To Cant
+ Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
+
+ Dim reader As New PdfReader(reporteByte)
+ Dim Paginas As Integer = reader.NumberOfPages
+ Dim Cont As Integer = 0
+ While Cont < Paginas
+ Cont += 1
+ Copy.AddPage(Copy.GetImportedPage(reader, Cont))
+ End While
+ Next
+ End If
+ Next
+ End If
+ End If
+ d.Close()
+
+ End Using
+ End Using
+ All = ms.ToArray()
+ End Using
+ ImprimirbytesPDF(All, "Etiquetas")
+
+
+ If Modalidad = "Individual" Then
+ Else
+
+ End If
+ ObjInventarios.Dispose()
+ End Sub
+
+ Private Function GenerarEtiqueta(CvePS As Integer, Lote As String, FechaCaducidad As Date, PS As String) As Byte()
+ Dim QrDescarga As String = ""
+ Dim Cfdi As New RVCFDI33.GeneraCFDI()
+ Dim b As Byte() = Cfdi.ConvertirQrCode(String.Format("?CvePS={0}&Lote={1}&Fecha={2}", CvePS, Lote, Format(FechaCaducidad, "dd/MM/yyyy").ToString()))
+ QrDescarga = Convert.ToBase64String(b)
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("QR", QrDescarga))
+ params.Add(New ReportParameter("PS", PS))
+ params.Add(New ReportParameter("Lote", Lote))
+ params.Add(New ReportParameter("FechaCad", FechaCaducidad.ToString()))
+ Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", New DataTable, params)
End Function
-#End Region
+#End Region
End Class