4449 lines
284 KiB
VB.net
4449 lines
284 KiB
VB.net
Option Strict On
|
|
Option Explicit On
|
|
|
|
Imports Extensiones
|
|
Imports System.Data
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports System.Xml
|
|
Imports System.IO
|
|
Imports iTextSharp.text
|
|
Imports iTextSharp.text.pdf
|
|
|
|
Imports Stimulsoft.Report
|
|
Imports Stimulsoft.Report.Components
|
|
Imports Stimulsoft.Report.Dictionary
|
|
Imports Stimulsoft.Report.Web
|
|
|
|
Partial Class PopUpVerFactura
|
|
Inherits ClsPaginas
|
|
|
|
Private Shared missing As Object = System.Reflection.Missing.Value
|
|
|
|
#Region " PROPIEDADES "
|
|
Public Property DtMovimientos() As DataTable
|
|
Get
|
|
Return CType(ViewState("DtMovimientos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtMovimientos") = value
|
|
End Set
|
|
End Property
|
|
Public Property DtDetalle() As DataTable
|
|
Get
|
|
Return CType(ViewState("DtDetalle"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtDetalle") = value
|
|
End Set
|
|
End Property
|
|
Public Property Opcion As String
|
|
Get
|
|
Return CType(ViewState("Opcion"), String)
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Opcion") = value
|
|
End Set
|
|
End Property
|
|
Public Property Param As String
|
|
Get
|
|
Return CType(ViewState("Param"), String)
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Param") = value
|
|
End Set
|
|
End Property
|
|
Private Property TmpDTOS As DataTable
|
|
Get
|
|
Return CType(ViewState("TmpDTOS"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TmpDTOS") = value
|
|
End Set
|
|
End Property
|
|
Private Property TmpDTMaterialesOS As DataTable
|
|
Get
|
|
Return CType(ViewState("TmpDTMaterialesOS"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TmpDTMaterialesOS") = value
|
|
End Set
|
|
End Property
|
|
Private ReadOnly Property Ruta As String
|
|
Get
|
|
Return ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\"
|
|
End Get
|
|
End Property
|
|
Private ReadOnly Property DomicilioFiscalCompu As String
|
|
Get
|
|
Dim SisEmpresa As New ClsSisEmpresas()
|
|
Dim EmpInfo As DataRow
|
|
Dim domicilioFiscal As String = ""
|
|
If SisEmpresa.GetEmpresas(72, "-1", "-1", "-1", "-1") Then
|
|
EmpInfo = SisEmpresa.DtResultados.Rows(0)
|
|
domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
|
|
Return domicilioFiscal
|
|
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 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
|
|
If Request.Headers("ADSToken") IsNot Nothing Then
|
|
Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString)))
|
|
Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
|
|
Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()
|
|
|
|
Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
|
|
|
|
If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
|
|
Context.Session("UsuarioSIG") = UsuarioToken
|
|
End If
|
|
End If
|
|
|
|
If Request("RFC") IsNot Nothing AndAlso Request("File") IsNot Nothing Then
|
|
Dim Path As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("File"))
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
|
|
ElseIf Request("RFC") IsNot Nothing AndAlso Request("FileV") IsNot Nothing Then
|
|
Dim Path As String = String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
|
|
ElseIf Request("File") IsNot Nothing AndAlso Request("TipoDocto") IsNot Nothing AndAlso Request("TipoArchivo") IsNot Nothing Then
|
|
Dim Path As String = "" ' String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
|
|
|
|
Select Case Request("TipoArchivo")
|
|
Case "PDF"
|
|
Path = String.Format("{0}PDF\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
|
|
Case "XML"
|
|
Path = String.Format("{0}XML\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
|
|
End Select
|
|
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
Else
|
|
If Request("File") IsNot Nothing Then
|
|
Dim Path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, Request("File"))
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "txt", "text/plain", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End If
|
|
|
|
If Request("REPORTE") IsNot Nothing Then
|
|
CType(Session("DTPDF"), HtmlTable).ExportToPDF("Reporte")
|
|
End If
|
|
|
|
'OPCIONES
|
|
|
|
If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then
|
|
Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
|
|
If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
|
|
SeleccionaReporte(UrlParametros)
|
|
End If
|
|
End If
|
|
|
|
|
|
End If
|
|
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
|
|
Dim ObjUsuarios As New ClsSisUsuarios
|
|
If ObjUsuarios.GetUsuarios(CveUsuario) Then
|
|
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
|
|
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
|
|
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
|
|
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
|
|
UsuarioToken.CveEmpresa = CveEmpresa
|
|
CreaObjetoEmpresa(UsuarioToken)
|
|
End If
|
|
End If
|
|
ObjUsuarios.Dispose()
|
|
Return UsuarioToken
|
|
End Function
|
|
Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario)
|
|
|
|
Dim ObjEmpresa As New ClsSisEmpresas()
|
|
If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then
|
|
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
|
|
|
|
Dim EmpresasFuncionalidades As New HybridDictionary
|
|
For Each Row As Data.DataRow In dttmp.Rows
|
|
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
|
|
Next
|
|
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
|
|
End If
|
|
|
|
UsuarioToken.Empresa = ObjEmpresa.Empresa
|
|
End If
|
|
ObjEmpresa.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub SeleccionaReporte(UrlParametros As Hashtable)
|
|
|
|
'DESCARGA COMPROBANTE
|
|
If UrlParametros("OP").ToString = "IEComprobante" Then
|
|
DescargaComprobante(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA COMPRA
|
|
If UrlParametros("OP").ToString = "Fact" Then
|
|
DescargaFactura(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA VENTA
|
|
If UrlParametros("OP").ToString = "FactVta" Then
|
|
DescargaFacturaVenta(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML TRASLADO
|
|
If UrlParametros("OP").ToString = "DesXmlTra" Then
|
|
DescargaXMLTraslado(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO PDF TRASLADO
|
|
If UrlParametros("OP").ToString = "DesPdfTra" Then
|
|
DescargaPDFTraslado(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML DE UTILIDADES
|
|
If UrlParametros("OP").ToString = "DesXmlNom" Then
|
|
DescargaXMLUtilidades(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML DE VIATICOS
|
|
If UrlParametros("OP").ToString = "DesXmlVIA" Then
|
|
DescargaXMLViaticos(UrlParametros)
|
|
End If
|
|
|
|
'IMPRIME REPORTE DE ENTRADA DE ALMACEN
|
|
If UrlParametros("OP").ToString = "Alm" Then
|
|
If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
|
|
CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
If UrlParametros("OP").ToString = "Etiqueta" Then
|
|
If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
|
|
ImprimirEtiqueta(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UrlParametros("MODALIDAD").ToString)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME OC
|
|
If UrlParametros("OP").ToString = "OC" Then
|
|
If UrlParametros("CVEOC") IsNot Nothing AndAlso UrlParametros("CVEOC").ToString.ToEntero > 0 Then
|
|
ImprimePDFOC(UrlParametros("CVEOC").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME COTIZACION OC
|
|
If UrlParametros("OP").ToString = "CotOC" Then
|
|
If UrlParametros("CVEOC") IsNot Nothing AndAlso UrlParametros("CVEOC").ToString.ToEntero > 0 Then
|
|
ImprimePDFCotOC(UrlParametros("CVEOC").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME VALE
|
|
If UrlParametros("OP").ToString = "VAL" Then
|
|
If UrlParametros("CVEVALE") IsNot Nothing AndAlso UrlParametros("CVEVALE").ToString.ToEntero > 0 Then
|
|
GenerarPDFVale(UrlParametros("CVEVALE").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME VALE
|
|
If UrlParametros("OP").ToString = "CAN" Then
|
|
If UrlParametros("CVEVTA") IsNot Nothing AndAlso UrlParametros("CVEVTA").ToString.ToEntero > 0 Then
|
|
ImprimeCancelacion(UrlParametros("CVEVTA").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME AFR
|
|
If UrlParametros("OP").ToString = "AFR" Then
|
|
If UrlParametros("CVEAFR") IsNot Nothing AndAlso UrlParametros("CVEAFR").ToString.ToEntero > 0 Then
|
|
If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then
|
|
ImprimirPDFAFR(UrlParametros("CVEAFR").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME AFR AGRUPADO
|
|
If UrlParametros("OP").ToString = "AFR2" Then
|
|
If UrlParametros("CVER") IsNot Nothing AndAlso UrlParametros("CVER").ToString.ToEntero > 0 Then
|
|
If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then
|
|
ImprimirPDFAFR2(UrlParametros("CVER").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME POLIZA
|
|
If UrlParametros("OP").ToString = "POL" Then
|
|
If UrlParametros("CVEPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPOLIZA").ToString.ToEntero > 0 Then
|
|
ImprimirPolizaPDF(UrlParametros("CVEPOLIZA").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
|
|
'IMPRIME FACTURA
|
|
If UrlParametros("OP").ToString = "VTA" Then
|
|
If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then
|
|
Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1"
|
|
|
|
imprimirFacturaVenta(UrlParametros("CVEVENTA").ToString.ToEntero, If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0"), GuardarPDF:=Guardar)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME GASTO DE CONTRATO
|
|
If UrlParametros("OP").ToString = "CONG" Then
|
|
If UrlParametros("CVECONTRATO") IsNot Nothing AndAlso UrlParametros("CVECONTRATO").ToString.ToEntero > 0 Then
|
|
ImprimeGastoContrato(UrlParametros("CVECONTRATO").ToString.ToEntero, UrlParametros("CVECONTRATOGASTO").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME FORMATO CICOVISA
|
|
If UrlParametros("OP").ToString = "CIC" Then
|
|
If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then
|
|
ImprimeFormatoCICOVISA(UrlParametros("CVEVENTA").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME CARTA PORTE
|
|
If UrlParametros("OP").ToString = "CARPO" Then
|
|
If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
|
|
ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
If UrlParametros("OP").ToString = "CORT" Then
|
|
If UrlParametros("CVECORTE") IsNot Nothing AndAlso UrlParametros("CVECORTE").ToString.ToEntero > 0 Then
|
|
ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME IE
|
|
If UrlParametros("OP").ToString = "IE" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa)
|
|
End If
|
|
End If
|
|
|
|
'Imprime Movimiento de IE
|
|
If UrlParametros("OP").ToString = "ImprimeMov" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME DEPOSITOS CAJA
|
|
If UrlParametros("OP").ToString = "DC" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME IE2
|
|
If UrlParametros("OP").ToString = "IECHEQUE" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa)
|
|
End If
|
|
End If
|
|
|
|
'Descargar Archivo
|
|
If UrlParametros("OP").ToString = "OI" Then
|
|
If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then
|
|
CrearArchivo(UrlParametros("ARCHIVO").ToString)
|
|
End If
|
|
End If
|
|
|
|
'Archivo contrato
|
|
If UrlParametros("OP").ToString = "CONTRATO" Then
|
|
If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then
|
|
CrearArchivoContratos(UrlParametros("ARCHIVO").ToString)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME ORDENES SERVICIO
|
|
If UrlParametros("OP").ToString = "OS" Then
|
|
If UrlParametros("CVEOS") IsNot Nothing AndAlso UrlParametros("CVEOS").ToString.ToEntero > 0 Then
|
|
GenerarPDFOS(UrlParametros("CVEOS").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME
|
|
If UrlParametros("OP").ToString = "P" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
ImprimirReciboDePagos(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CVEVENTA").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME COMPLEMENTO DE PAGO XML
|
|
If UrlParametros("OP").ToString = "CompP" Then
|
|
|
|
If UrlParametros("CVECOMPLEMENTOPAGO") IsNot Nothing AndAlso UrlParametros("CVECOMPLEMENTOPAGO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then
|
|
|
|
Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
|
|
If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
|
|
PDFReciboDePagos(-1, UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
|
|
End If
|
|
End If
|
|
|
|
Archivo = Nothing
|
|
End If
|
|
|
|
If UrlParametros("SERIEFOLIO") IsNot Nothing AndAlso UrlParametros("SERIEFOLIO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then
|
|
Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Not Archivo.Exists Then
|
|
If UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
PDFReciboDePagos(-1, UrlParametros("CVEIE").ToString.ToEntero, -1, True)
|
|
End If
|
|
End If
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME ENTREGAS POR REALIZAR
|
|
If UrlParametros("OP").ToString = "ENTREGAS" Then
|
|
If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
|
|
ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Function Parametros(Cadena As String) As Hashtable
|
|
Dim P1() As String = Cadena.Split("&"c)
|
|
Dim Tmp As String
|
|
Dim P2() As String
|
|
|
|
Dim URLParametros As New Hashtable
|
|
|
|
For Each Tmp In P1
|
|
P2 = Tmp.Replace("%26%", "&").Split("="c)
|
|
URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
|
|
Next
|
|
Return URLParametros
|
|
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
|
|
Dim DtCortesVentasResumen As DataTable = Nothing
|
|
Dim DtCortesVentas As DataTable = Nothing
|
|
Dim Fecha = "", Nombre = ""
|
|
If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then
|
|
DtCortesVentasResumen = ObjVenta.DtResultados
|
|
|
|
End If
|
|
If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
|
|
DtCortesVentas = ObjPuntoVenta.DtResultados
|
|
If DtCortesVentas.Rows.Count > 0 Then
|
|
Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
|
|
|
|
Fecha = RowInfo("FechaInicial").ToString
|
|
Nombre = RowInfo("Nombre").ToString
|
|
End If
|
|
End If
|
|
ObjVenta.Dispose()
|
|
ObjPuntoVenta.Dispose()
|
|
Dim FechaCorte As String = $" <b>Fecha fin:</b> {Fecha}"
|
|
Dim Usuario As String = $" <b>Usuario:</b> {Nombre}"
|
|
If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
|
|
lrds.Add(rds)
|
|
Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
|
|
lrds.Add(rds2)
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region " OP = FACTURA - IMPRIME COMPRA"
|
|
Private Sub DescargaComprobante(Parametros As Hashtable)
|
|
If Parametros("COMPROBANTE") IsNot Nothing Then
|
|
|
|
Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Parametros("COMPROBANTE"))
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/octet-stream"
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End Sub
|
|
Private Sub DescargaFactura(Parametros As Hashtable)
|
|
If Parametros("CVEFACTURA") IsNot Nothing AndAlso Parametros("CVEFACTURA").ToString.ToEntero > 0 Then
|
|
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
|
|
Dim Path As String = String.Format("{0}Compras\{1}\{2}.{3}", UsuarioActual.Empresa.Ruta, Parametros("RFC").ToString, Parametros("CVEFACTURA").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
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
|
|
Dim Exten As String = "Xml"
|
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", Parametros("TIPO").ToString, Parametros("SERIEFOLIO").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/xml"
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
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
|
|
Dim Exten As String = "Xml"
|
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Utilidades", Parametros("SERIEFOLIO").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/xml"
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
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))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim Dr As DataRow = Nothing
|
|
Dim ObjContratos As New ClsContratos
|
|
If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then
|
|
ObjContratos.Dispose()
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("Contrato", $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} "))
|
|
params.Add(New ReportParameter("Proveedor", If(ObjContratos.CveProveedor > 0, ObjContratos.RazonSocial.ToString, ObjContratos.NombreComercial.ToString)))
|
|
params.Add(New ReportParameter("FechaInicio", ObjContratos.FechaInicial.ToShortDateString))
|
|
params.Add(New ReportParameter("FechaFin", ObjContratos.FechaFinal.ToShortDateString))
|
|
params.Add(New ReportParameter("TipoContrato", ObjContratos.DtResultados.Rows(0)("ContratoTipo").ToString))
|
|
params.Add(New ReportParameter("TotalContrato", ObjContratos.ImporteTotal.FormatoNumero))
|
|
Dim Nombre As String = If($"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Length > 20, $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Substring(0, 20), $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ")
|
|
Dim SumaUtilidad As Double = 0
|
|
Dim SumaGasto As Double = 0
|
|
If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then
|
|
If ObjContratos.DtResultados.Rows.Count > 0 Then
|
|
SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL")
|
|
End If
|
|
End If
|
|
Dim dt As DataTable = Nothing
|
|
If ObjContratos.GetContratoGastos(CveContrato) Then
|
|
dt = ObjContratos.DtResultados.FiltraParametros($"CveContratoGasto = {CveContratoGasto}")
|
|
SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")
|
|
End If
|
|
params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}"))
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
|
|
Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
|
|
If CveVenta > 0 Then
|
|
Dim ObjVentas As New ClsVentas
|
|
Dim SerieFolio As String = ""
|
|
Dim PedidoContrato As String = ""
|
|
Dim EnvioContacto As String = ""
|
|
Dim EnvioDireccion As String = ""
|
|
Dim Guia As String = ""
|
|
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
SerieFolio = ObjVentas.DtResultados.Rows(0)("SerieFolio").ToString
|
|
PedidoContrato = ObjVentas.DtResultados.Rows(0)("PedidoContrato").ToString
|
|
EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
|
|
EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
|
|
Guia = ObjVentas.DtResultados.Rows(0)("Guia").ToString
|
|
End If
|
|
End If
|
|
Dim Dt As DataTable = Nothing
|
|
If ObjVentas.GetVentaDetalle(CveVenta) Then
|
|
Dt = ObjVentas.DtResultados
|
|
End If
|
|
ObjVentas.Dispose()
|
|
If Dt.Rows.Count > 0 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
|
|
params.Add(New ReportParameter("SerieFolio", SerieFolio))
|
|
params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
|
|
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
|
|
params.Add(New ReportParameter("Guia", Guia))
|
|
ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
|
|
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
|
|
If CveMovimiento > 0 Then
|
|
Dim ObjInv As New ClsInventarios
|
|
Dim ObjAcar As New ClsAcarreos
|
|
Dim SerieFolio As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim LugarFecha As String = ""
|
|
Dim Origen As String = ""
|
|
Dim Destino As String = ""
|
|
Dim Observaciones As String = ""
|
|
Dim Chofer As String = ""
|
|
Dim CveChofer As String
|
|
Dim Placa As String = ""
|
|
Dim Recibio As String = ""
|
|
Dim FechaEntrega As String = ""
|
|
Dim EspecifUnidad As String = ""
|
|
Dim ResponsableCarga As String = ""
|
|
Dim ResponsableRecibio As String = ""
|
|
Dim Identificacion As String = ""
|
|
Dim Domicilio As String = ""
|
|
Dim Telefono As String = ""
|
|
Dim Ciudad As String = ""
|
|
Dim Licencia As String = ""
|
|
|
|
Dim SBDireccionO As New StringBuilder()
|
|
Dim SBDireccionD As New StringBuilder()
|
|
|
|
If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
|
|
If ObjInv.DtResultados.Rows.Count > 0 Then
|
|
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
|
|
If Dr IsNot Nothing Then
|
|
SerieFolio = Dr("Folio").ToString
|
|
DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
|
|
LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
|
|
Origen = Dr("AlmacenOrigen").ToString
|
|
Destino = Dr("AlmacenDestino").ToString
|
|
Observaciones = Dr("Observaciones").ToString
|
|
CveChofer = Dr("CveChofer").ToString
|
|
If ObjAcar.GetChofer(CveChofer.ToEntero, UsuarioActual.CveEmpresa, -1, -1) Then
|
|
Chofer = ObjAcar.DtResultados.FiltroPrimeroValor("Chofer")
|
|
End If
|
|
Placa = Dr("Traslado_Placa").ToString
|
|
Recibio = Dr("Recibio").ToString
|
|
FechaEntrega = Dr("FechaEntrega").ToString
|
|
EspecifUnidad = Dr("EspecificacionUnidad").ToString
|
|
|
|
If Dr("CalleOrigen").ToString.Length > 0 Then
|
|
SBDireccionO.AppendFormat("{0}", Dr("CalleOrigen").ToString)
|
|
If Dr("NoExtOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", Dr("NoExtOrigen").ToString)
|
|
If Dr("ColoniaOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", Dr("ColoniaOrigen").ToString)
|
|
If Dr("CPOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", Dr("CPOrigen").ToString)
|
|
If Dr("LocalidadOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", Dr("LocalidadOrigen").ToString)
|
|
If Dr("MunicipioOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", Dr("MunicipioOrigen").ToString)
|
|
If Dr("EstadoOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", Dr("EstadoOrigen").ToString)
|
|
If Dr("PaisOrigen").ToString.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", Dr("PaisOrigen").ToString)
|
|
End If
|
|
If Dr("CalleDestino").ToString.Length > 0 Then
|
|
SBDireccionD.AppendFormat("{0}", Dr("CalleDestino").ToString)
|
|
If Dr("NoExtDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", Dr("NoExtDestino").ToString)
|
|
If Dr("ColoniaDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", Dr("ColoniaDestino").ToString)
|
|
If Dr("CPDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", Dr("CPDestino").ToString)
|
|
If Dr("LocalidadDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", Dr("LocalidadDestino").ToString)
|
|
If Dr("MunicipioDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", Dr("MunicipioDestino").ToString)
|
|
If Dr("EstadoDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", Dr("EstadoDestino").ToString)
|
|
If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
|
|
End If
|
|
|
|
ResponsableCarga = Dr("ResponsableCarga").ToString
|
|
ResponsableRecibio = Dr("ResponsableRecibio").ToString
|
|
Identificacion = Dr("Identificacion").ToString
|
|
Domicilio = Dr("Domicilio").ToString
|
|
Telefono = Dr("Telefono1").ToString
|
|
Ciudad = Dr("Ciudad").ToString
|
|
Licencia = Dr("Licencia").ToString
|
|
End If
|
|
End If
|
|
End If
|
|
ObjAcar.Dispose()
|
|
|
|
Dim Dt As DataTable = Nothing
|
|
If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
|
Dt = ObjInv.DtResultados
|
|
End If
|
|
ObjInv.Dispose()
|
|
If Dt.Rows.Count > 0 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
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
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
|
|
params.Add(New ReportParameter("SerieFolio", SerieFolio))
|
|
params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal))
|
|
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
|
|
params.Add(New ReportParameter("LugarFecha", LugarFecha))
|
|
params.Add(New ReportParameter("Origen", Origen))
|
|
params.Add(New ReportParameter("Destino", Destino))
|
|
params.Add(New ReportParameter("Remitente", ""))
|
|
params.Add(New ReportParameter("Destinatario", ""))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("Chofer", Chofer))
|
|
params.Add(New ReportParameter("Placa", Placa))
|
|
params.Add(New ReportParameter("Recibio", Recibio))
|
|
params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToDateTime().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad))
|
|
params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString))
|
|
params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString))
|
|
params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga))
|
|
params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio))
|
|
params.Add(New ReportParameter("Identificacion", Identificacion))
|
|
params.Add(New ReportParameter("Domicilio", Domicilio))
|
|
params.Add(New ReportParameter("Telefono", Telefono))
|
|
params.Add(New ReportParameter("Ciudad", Ciudad))
|
|
params.Add(New ReportParameter("Licencia", Licencia))
|
|
ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
|
|
End If
|
|
End If
|
|
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")
|
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
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")
|
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
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
|
|
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
|
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("SERIEFOLIO").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name).ToLower = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End Sub
|
|
Public Sub imprimirFacturaVenta(CveVenta As Integer, AplicaPagare As String, Optional GuardarPDF As Boolean = False)
|
|
Dim ObjVentas As New ClsVentas
|
|
Dim Vta As Modelos.Factura = Nothing
|
|
|
|
Dim TmpDTImpuestos = New DataTable
|
|
TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
|
|
TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
|
|
TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
|
|
|
|
Dim TmpDTImpuestosIVAIEPS = New DataTable
|
|
TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String))
|
|
TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String))
|
|
TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
|
|
TmpDTImpuestosIVAIEPS.Columns.Add("Orden", GetType(Integer))
|
|
|
|
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
Dim dtVentas As DataTable = ObjVentas.DtResultados
|
|
|
|
' se rellenan los campos de la factura
|
|
Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura)
|
|
|
|
Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
|
|
'se rellena la sucursal
|
|
'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
|
|
Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()
|
|
|
|
Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
|
|
|
|
Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
|
|
'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
|
|
Vta.Cliente = New Modelos.ClienteModel
|
|
Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
|
|
Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
|
|
Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
|
|
Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
|
|
Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
|
|
Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
|
|
Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
|
|
Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
|
|
Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
|
|
Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
|
|
Vta.AtencionA = dtVentas(0)("AtencionA").ToString
|
|
Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
|
|
Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
|
|
Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
|
|
Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
|
|
Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
|
|
Vta.RefDocto = dtVentas(0)("Ref").ToString
|
|
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
|
|
Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
|
|
Vta.Version = dtVentas(0)("Version").ToString
|
|
|
|
Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
|
|
Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString
|
|
Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}")
|
|
|
|
Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }")
|
|
Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal)
|
|
'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString
|
|
|
|
Vta.ClienteSucursal = New Modelos.SucursalModel
|
|
Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
|
|
Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
|
|
Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString
|
|
Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString
|
|
Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString
|
|
Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString
|
|
Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString
|
|
Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString
|
|
Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString
|
|
Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString
|
|
Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString
|
|
Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString
|
|
Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString
|
|
|
|
Vta.EnviarA = New Modelos.EnviarAModel
|
|
Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero
|
|
Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString
|
|
Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString
|
|
Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString
|
|
Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString
|
|
Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString
|
|
Vta.EnviarA.EnvioTel = dtVentas(0)("EnvioTel").ToString
|
|
|
|
Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString
|
|
Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString
|
|
Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString
|
|
Vta.EnviarA.EnvioDepartamento = dtVentas(0)("EnvioDepartamento").ToString
|
|
|
|
'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString
|
|
|
|
'INE COMPLEMENTO
|
|
If dtVentas(0)("TipoComite").ToString <> "" Then
|
|
Dim INE As New Modelos.ComplementoINE
|
|
INE.INETipoComite = dtVentas(0)("TipoComite").ToString
|
|
INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString
|
|
INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero
|
|
Vta.ComplementoINE = INE
|
|
End If
|
|
|
|
|
|
Dim DR As DataRow = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
|
|
|
|
'solo para eclipse, que muesre un subtotal debajo de IVA
|
|
If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
|
|
If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
|
|
If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
|
|
If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra
|
|
Vta.DtDetalle = ObjVentas.DtResultados
|
|
End If
|
|
|
|
If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
|
|
|
|
Dim dtImpuesto As DataTable = ObjVentas.DtResultados
|
|
If dtImpuesto.Rows.Count > 0 Then
|
|
For Each Row As DataRow In dtImpuesto.Rows
|
|
Dim Orden = 80
|
|
If Row("Importe").ToString.ToDouble <> 0 Then
|
|
DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
|
|
DR("Importe") = Row("Importe").ToString.ToDouble
|
|
DR("Orden") = Orden
|
|
TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
Orden = Orden + 1
|
|
End If
|
|
Next
|
|
End If
|
|
Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
|
|
|
|
End If
|
|
|
|
'TmpDT DESGLOSE DE IMPUESTOS 3.3
|
|
For Each dr1 As DataRow In Vta.DtDetalle.Rows
|
|
Dim DrIVA As DataRow = Nothing
|
|
Dim DrIEPS As DataRow = Nothing
|
|
|
|
Try
|
|
DrIVA = TmpDTImpuestosIVAIEPS.Select("Impuesto = 'IVA'")(0)
|
|
Catch ex As Exception
|
|
DrIVA = Nothing
|
|
End Try
|
|
|
|
If DrIVA IsNot Nothing Then
|
|
DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble
|
|
TmpDTImpuestosIVAIEPS.AcceptChanges()
|
|
Else
|
|
Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
|
|
If dr1("PorcentajeIVA").ToString.ToDouble > 0 Then
|
|
DR2("Impuesto") = "IVA" : DR2("tasa") = String.Format("{0} %", dr1("PorcentajeIVA").ToString.ToDouble() * 100) : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1"
|
|
TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
|
|
TmpDTImpuestosIVAIEPS.AcceptChanges()
|
|
End If
|
|
End If
|
|
|
|
Try
|
|
DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0)
|
|
Catch ex As Exception
|
|
DrIEPS = Nothing
|
|
End Try
|
|
|
|
If DrIEPS IsNot Nothing Then
|
|
DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble
|
|
TmpDTImpuestosIVAIEPS.AcceptChanges()
|
|
Else
|
|
Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
|
|
If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then
|
|
DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString = "0.03", "2", If(dr1("PorcentajeIEPS").ToString = "0.06", "3", If(dr1("PorcentajeIEPS").ToString = "0.07", "4", If(dr1("PorcentajeIEPS").ToString = "0.09", "5", ""))))
|
|
TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
|
|
TmpDTImpuestosIVAIEPS.AcceptChanges()
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC")
|
|
|
|
If ObjVentas.GetVentasFirmas(CveVenta) Then
|
|
Vta.DtFirmas = ObjVentas.DtResultados
|
|
End If
|
|
|
|
|
|
'CFDI RELACIONADO
|
|
If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then
|
|
Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
|
|
If Vta.Timbre.Comprobante.TipoComprobante = "E" Then
|
|
If Vta.TipoDocto.Contiene("Egs") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
|
|
End If
|
|
If Vta.TipoDocto.Contiene("Dev") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
|
End If
|
|
Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
|
|
End If
|
|
' cuando es refacturacoin es cfdirelacionado, con relacion 04
|
|
If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "04"
|
|
Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Refacturación de Ingreso"
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then
|
|
|
|
Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}")
|
|
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString()
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString()
|
|
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
|
|
If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
|
|
If ObjVentas.GetVentaRefacturacion(dtVentas(0)("CveVentaPadre").ToString.ToEntero) Then
|
|
If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal))
|
|
ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total")
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
|
|
If Vta.TipoDocto.Contiene("Dev") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
Else
|
|
'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then
|
|
' 'carga as notas de credito vinculadas
|
|
' If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
|
|
' Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
' End If
|
|
'End If
|
|
|
|
If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
|
|
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
|
|
If Vta.TipoDocto.Contiene("Dev") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
|
|
If Vta.TipoDocto.Contiene("Ing") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
|
|
End If
|
|
|
|
If Vta.TipoDocto.Contiene("Egs") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
|
|
End If
|
|
|
|
If Vta.TipoDocto.Contiene("Dev") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'End If
|
|
|
|
'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then
|
|
' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
|
|
' ' Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
' 'End If
|
|
' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
' Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
' End If
|
|
'End If
|
|
|
|
End If
|
|
ObjVentas.Dispose()
|
|
|
|
Dim Guardar As Boolean = If(GuardarPDF, True, If(AplicaPagare = "1", False, True))
|
|
|
|
If Not IsNothing(Vta) Then
|
|
'04/05/2018 - Se agrega seccion pruebas para generar factura venta .mrt para PyME
|
|
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
|
GeneraPDFVtaPyMe(Vta, "PDF")
|
|
Else
|
|
ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar), Vta.SerieFolio, "PDF")
|
|
Vta = Nothing
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
|
|
|
|
Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
|
|
Dim ObjInventarios As New ClsInventarios
|
|
|
|
ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
|
|
|
|
Dim CveConcepto As Integer = ObjInventarios.CveConcepto
|
|
Dim Folio As String = ObjInventarios.Folio.ToString
|
|
Dim CveCompra = ObjInventarios.CveCompra
|
|
Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString
|
|
Dim FechaHora As DateTime = ObjInventarios.FechaHora
|
|
Dim Almacen As String = ObjInventarios.Almacen
|
|
Dim RazonSocial As String = ObjInventarios.Proveedor
|
|
Dim RazonSocialOC As String = ObjInventarios.RazonSocialOC
|
|
Dim CalleOrigen As String = ObjInventarios.CalleOrigen
|
|
Dim NoExtOrigen As String = ObjInventarios.NoExtOrigen
|
|
Dim ColoniaOrigen As String = ObjInventarios.ColoniaOrigen
|
|
Dim LocalidadOrigen As String = ObjInventarios.LocalidadOrigen
|
|
Dim MunicipioOrigen As String = ObjInventarios.MunicipioOrigen
|
|
Dim EstadoOrigen As String = ObjInventarios.EstadoOrigen
|
|
Dim PaisOrigen As String = ObjInventarios.PaisOrigen
|
|
Dim CPOrigen As String = ObjInventarios.CPOrigen
|
|
Dim CalleDestino As String = ObjInventarios.CalleDestino
|
|
Dim NoExtDestino As String = ObjInventarios.NoExtDestino
|
|
Dim ColoniaDestino As String = ObjInventarios.ColoniaDestino
|
|
Dim LocalidadDestino As String = ObjInventarios.LocalidadDestino
|
|
Dim MunicipioDestino As String = ObjInventarios.MunicipioDestino
|
|
Dim EstadoDestino As String = ObjInventarios.EstadoDestino
|
|
Dim PaisDestino As String = ObjInventarios.PaisDestino
|
|
Dim CPDestino As String = ObjInventarios.CPDestino
|
|
Dim Proveedor As String = ObjInventarios.Proveedor
|
|
Dim Remision As String = ObjInventarios.Remision
|
|
Dim SubProyecto As String = ObjInventarios.SubProyecto
|
|
Dim Observaciones As String = ObjInventarios.Observaciones
|
|
Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud")
|
|
Dim NombreCapturo As String = ObjInventarios.NombreCapturo
|
|
Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego")
|
|
Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
|
|
Dim Recibio As String = ObjInventarios.Recibio
|
|
Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
|
|
Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego
|
|
Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
|
|
Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
|
|
Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
|
|
|
|
If Recibio.Trim = "" Then
|
|
Dim ObjRH As New ClsRH
|
|
If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then
|
|
Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString
|
|
End If
|
|
ObjRH.Dispose()
|
|
End If
|
|
|
|
Dim Personal As String = ObjInventarios.NombreCompleto
|
|
Dim Capturo As String = ObjInventarios.NombreCapturo
|
|
Dim AlmacenDestino As String = ObjInventarios.AlmacenDestino
|
|
Dim CveConsignacion As Integer = ObjInventarios.CveConsignacion
|
|
Dim Moneda As String = ObjInventarios.Moneda
|
|
Dim CveMoneda As Integer = ObjInventarios.CveMoneda
|
|
Dim FolioVenta As String = ObjInventarios.FolioVenta
|
|
Dim FolioOC As String = ObjInventarios.FolioOC
|
|
Dim FolioInterno As String = ObjInventarios.FolioInterno
|
|
|
|
Dim CveCliente As Integer = ObjInventarios.CveCliente
|
|
Dim NombreCliente As String = ObjInventarios.NombreCliente
|
|
Dim CveClienteSucursal As Integer = ObjInventarios.CveClienteSucursal
|
|
Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
|
|
Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
|
|
|
|
Dim CveMovimientoRelacionado As Integer = -1
|
|
Dim FolioRelacionado As String = ""
|
|
Dim CveConceptoMovtoRelacionado As Integer = -1
|
|
|
|
Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero
|
|
|
|
'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
|
|
If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
|
|
CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
|
|
If CveConcepto.Contiene(2, 3, 26, 27) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
|
|
FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
|
|
CveConceptoMovtoRelacionado = 37
|
|
ElseIf CveConcepto.Contiene(36, 37) Then
|
|
FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
|
|
CveConceptoMovtoRelacionado = 3
|
|
ElseIf CveConcepto.Contiene(2) AndAlso CveTipoAlmacen.Contiene(24, 25) Then
|
|
FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
|
|
CveConceptoMovtoRelacionado = 3
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
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 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
|
|
Dim keys(1) As DataColumn
|
|
keys(0) = DtMovimientos.Columns("No")
|
|
DtMovimientos.PrimaryKey = keys
|
|
End If
|
|
Else
|
|
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
|
DtMovimientos = ObjInventarios.DtResultados.Copy()
|
|
CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
|
|
If UsuarioActual.CveEmpresa = 140 AndAlso CveMovimientoRelacionado > 0 Then
|
|
If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then
|
|
Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen
|
|
Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
|
|
|
|
'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
|
|
If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
|
|
If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
|
|
Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
|
|
CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
|
|
Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
|
|
|
|
For Each Dr As DataRow In DtUsados.Rows
|
|
Dr("No") = IndexInicialUsados
|
|
IndexInicialUsados += 1
|
|
Next
|
|
|
|
DtMovimientos.Merge(DtUsados)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
DtMovimientos.Columns("No").AutoIncrement = True
|
|
DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
|
|
DtMovimientos.Columns("No").AutoIncrementStep = 1
|
|
Dim keys(1) As DataColumn
|
|
keys(0) = DtMovimientos.Columns("No")
|
|
DtMovimientos.PrimaryKey = keys
|
|
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() + ".<br/>" + Observaciones
|
|
Else
|
|
Observaciones = SbPendientes.ToString()
|
|
End If
|
|
End If
|
|
DtFaltante.Dispose()
|
|
End If
|
|
End If
|
|
|
|
If CveTipoAlmacen = 20 Then
|
|
CveConcepto = 24
|
|
End If
|
|
|
|
ObjInventarios.Dispose()
|
|
If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente
|
|
|
|
ImprimePDFAlmacen(CveConcepto, CveCompra, Folio.ToString, Fecha, Almacen, SubProyecto, Observaciones, Recibio,
|
|
Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC,
|
|
FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC,
|
|
Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen,
|
|
EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
|
|
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
|
|
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
|
|
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
|
|
CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)
|
|
|
|
End Sub
|
|
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
|
|
If CveMoneda > 1 Then
|
|
DtMovimientos.Columns("PU").ColumnName = "PUx"
|
|
DtMovimientos.Columns("Total").ColumnName = "Totalx"
|
|
DtMovimientos.Columns("PUExtranjero").ColumnName = "PU"
|
|
DtMovimientos.Columns("TotalExtranjero").ColumnName = "Total"
|
|
End If
|
|
End Sub
|
|
Private Sub ImprimePDFAlmacen(CveConcepto As Integer, CveCompra As Integer, Folio As String, Fecha As String, Almacen As String, SubProyecto As String, Observaciones As String, Recibio As String,
|
|
Personal As String, Capturo As String, AlmacenDestino As String, CveConsignacion As Integer, CveMoneda As Integer, Moneda As String, FolioVenta As String, FolioOC As String,
|
|
FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String,
|
|
Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
|
|
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
|
|
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
|
|
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
|
|
Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")
|
|
|
|
|
|
Select Case CveConcepto
|
|
Case 1 'INICIAL
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim SBDireccion As New StringBuilder()
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Inventario Inicial"))
|
|
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("UsuarioImprimio", UsuarioActual.Nombre))
|
|
'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
|
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 Archivo.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
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
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 2, 32, 33, 36 ' E N T R A D A S
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
|
|
Dim dr As DataRow = Nothing
|
|
If CveCompra > 0 Then
|
|
'buscar en compras, para mandar los datos
|
|
Dim ObjCompra As New ClsCompras()
|
|
If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
|
|
dr = ObjCompra.DtResultados.Rows(0)
|
|
End If
|
|
ObjCompra.Dispose()
|
|
|
|
End If
|
|
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
If Archivo.Exists Then
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
|
|
params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
|
End If
|
|
If UsuarioActual.CveEmpresa = 119 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
|
|
params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
|
|
params.Add(New ReportParameter("RazonSocial", RazonSocial))
|
|
params.Add(New ReportParameter("Remision", Remision))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FolioOC", FolioOC))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
|
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
|
End If
|
|
|
|
Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN"
|
|
If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE"
|
|
If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
|
|
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146) Then
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", ConceptoFormato))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
|
|
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
Else
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString()))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
|
params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
|
|
params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
|
|
params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
|
|
params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
|
|
params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDouble.Texto2Letras(CveMoneda).ToUpper)))
|
|
params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
|
|
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, "")))
|
|
params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, "")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("REVISÓ ALMACÉN{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ ALMACÉN{0}{1}", vbCrLf, Recibio)))
|
|
Else
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format(Recibio)))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
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")
|
|
Else
|
|
|
|
params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen)))
|
|
params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, "")))
|
|
params.Add(New ReportParameter("Folio", Folio.ToString))
|
|
params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCVinculada").ToString, "")))
|
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
|
params.Add(New ReportParameter("NombreProveedor", RazonSocial))
|
|
params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
|
|
params.Add(New ReportParameter("CiudadProveedor", " "))
|
|
params.Add(New ReportParameter("EstadoProveedor", " "))
|
|
params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
|
|
|
|
params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
|
|
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("IVA", If(CveCompra > 0, dr("IVA").ToString.FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("Total", If(CveCompra > 0, dr("Total").ToString.FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("TotalLetra", If(CveCompra > 0, String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper), "")))
|
|
|
|
params.Add(New ReportParameter("Observaciones", If(CveCompra > 0, dr("Observaciones").ToString, "")))
|
|
params.Add(New ReportParameter("Capturo", If(CveCompra > 0, dr("NombreCapturo").ToString, "")))
|
|
|
|
PUanacExtr(CveMoneda)
|
|
|
|
|
|
ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
|
|
Else
|
|
|
|
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
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
|
|
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("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
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
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))
|
|
Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
|
|
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.Contiene(3, 40) Then
|
|
concepto = "SALIDA DE ALMACÉN"
|
|
ElseIf CveConcepto = 37 Then
|
|
concepto = "SALIDA VIRTUAL"
|
|
Else
|
|
concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN"
|
|
End If
|
|
|
|
If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then
|
|
If Archivo2.Exists Then
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
|
|
params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
|
|
params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
|
|
params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
|
|
params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
|
|
params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
|
|
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
|
|
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
|
|
End If
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
Else
|
|
If Archivo.Exists Then
|
|
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
|
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
|
|
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString))
|
|
params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString))
|
|
params.Add(New ReportParameter("DireccionCliente", DomicilioCliente))
|
|
params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString))
|
|
|
|
If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
|
|
If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
|
|
If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString))
|
|
params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
|
|
Else
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
|
|
If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
|
|
If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)
|
|
|
|
Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
|
|
Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()
|
|
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString))
|
|
params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
|
|
End If
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", concepto))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha))
|
|
|
|
|
|
'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida 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
|
|
|
|
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("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
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("UsuarioRegistro", UsuarioRegistro))
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Else
|
|
Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
|
|
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
|
|
|
|
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("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(143) Then
|
|
Dim objclientes As New ClsClientes
|
|
If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then
|
|
params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString))
|
|
End If
|
|
If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
|
|
If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
|
|
If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
Else
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
|
|
If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
|
|
If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)
|
|
|
|
Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
|
|
Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
End If
|
|
End If
|
|
|
|
|
|
If A.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
Case 4 ' ENTRADA POR DESARMADO
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
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
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete"))
|
|
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("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 5 'SALIDA POR ARMADO
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
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
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete"))
|
|
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("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 6, 23 ' ENTRADA RESGUARDO
|
|
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Personal))
|
|
params.Add(New ReportParameter("Responsable", Personal))
|
|
params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
If DtMovimientos.COUNT("Serie") > 0 Then
|
|
params.Add(New ReportParameter("MostrarSerieLote", "1"))
|
|
Else
|
|
params.Add(New ReportParameter("MostrarSerieLote", "0"))
|
|
End If
|
|
Else
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
|
|
params.Add(New ReportParameter("NombreRecibio", Personal))
|
|
params.Add(New ReportParameter("Responsable", Personal))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
params.Add(New ReportParameter("NombreProveedor", Proveedor))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
End If
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
|
|
|
|
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
|
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
|
|
End If
|
|
|
|
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
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
|
|
Dim Mov As New ClsInventarios
|
|
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
|
|
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
|
|
TipoResponsable = "Personal"
|
|
Responsable = Recibio
|
|
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
|
|
TipoResponsable = "Cliente"
|
|
Responsable = Mov.DtResultados(0)("Nombre").ToString
|
|
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
|
|
TipoResponsable = "Proveedor"
|
|
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
End If
|
|
End If
|
|
Mov.Dispose()
|
|
|
|
params.Add(New ReportParameter("Responsable", Responsable))
|
|
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
|
|
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
Case 7 ' SALIDA RESGUARDO
|
|
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
|
|
params.Add(New ReportParameter("Responsable", Personal))
|
|
params.Add(New ReportParameter("NombreRecibio", Personal))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
If DtMovimientos.COUNT("Serie") > 0 Then
|
|
params.Add(New ReportParameter("MostrarSerieLote", "1"))
|
|
Else
|
|
params.Add(New ReportParameter("MostrarSerieLote", "0"))
|
|
End If
|
|
Else
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
|
|
params.Add(New ReportParameter("NombreRecibio", Personal))
|
|
params.Add(New ReportParameter("Responsable", Personal))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
params.Add(New ReportParameter("NombreProveedor", Proveedor))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
|
|
End If
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
|
|
|
|
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
|
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
|
|
End If
|
|
|
|
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
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
|
|
Dim Mov As New ClsInventarios
|
|
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
|
|
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
|
|
TipoResponsable = "Personal"
|
|
Responsable = Recibio
|
|
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
|
|
TipoResponsable = "Cliente"
|
|
Responsable = Mov.DtResultados(0)("Nombre").ToString
|
|
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
|
|
TipoResponsable = "Proveedor"
|
|
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
End If
|
|
End If
|
|
Mov.Dispose()
|
|
|
|
params.Add(New ReportParameter("Responsable", Responsable))
|
|
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
|
|
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 8, 26 ' T R A S L A D O - S A L I D A
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
|
|
|
|
params.Add(New ReportParameter("CveConcepto", "8")) 'FolioTraspaso.ToString
|
|
'params.Add(New ReportParameter("TipoTraslado", "AVISO")) 'FolioTraspaso.ToString
|
|
params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", Almacen, AlmacenDestino))) 'DdlAlmacenDestino.SelectedItem.ToString
|
|
params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString
|
|
params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre
|
|
params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text
|
|
params.Add(New ReportParameter("Accion", "RECIBE")) 'Antes Trasladó
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
|
|
Dim DTCliente As New DataTable
|
|
Dim SBDireccionO As New StringBuilder()
|
|
Dim SBDireccionD As New StringBuilder()
|
|
Dim CveCliente As Integer = 0
|
|
Dim CveDireccionEnvio As Integer = 0
|
|
Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "",
|
|
Paqueteria = "", NumContrato = "", Guia = ""
|
|
|
|
Dim CveContrato As Integer = DtMovimientos(0)("CveContrato").ToString.ToEntero
|
|
If CveContrato > 0 Then
|
|
Contrato = GlobalDTContratos().FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
|
|
NumContrato = GlobalDTContratos().FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
|
|
CveCliente = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
|
|
CveDireccionEnvio = GlobalDTContratos().FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero
|
|
|
|
If CveCliente > 0 Then
|
|
DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
|
|
Dim ObjVentas As New ClsClientes
|
|
If ObjVentas.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
|
|
If ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
|
|
ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
|
|
EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
|
|
EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
|
|
EnvioColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString
|
|
EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString
|
|
EnvioCP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString
|
|
EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString
|
|
Else
|
|
ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
|
|
EnvioContacto = DTCliente.FiltroPrimeroValor("Contacto")
|
|
EnvioDireccion = DTCliente.FiltroPrimeroValor("Direccion")
|
|
EnvioColonia = DTCliente.FiltroPrimeroValor("Colonia")
|
|
EnvioCiudad = DTCliente.FiltroPrimeroValor("Ciudad")
|
|
EnvioEstado = DTCliente.FiltroPrimeroValor("Estado")
|
|
ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
|
|
EnvioCP = DTCliente.FiltroPrimeroValor("CP")
|
|
End If
|
|
End If
|
|
ObjVentas.Dispose()
|
|
End If
|
|
|
|
params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
|
|
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
|
|
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
|
|
params.Add(New ReportParameter("EnvioColonia", EnvioColonia))
|
|
params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad))
|
|
params.Add(New ReportParameter("EnvioEstado", EnvioEstado))
|
|
params.Add(New ReportParameter("ClientePais", ClientePais))
|
|
params.Add(New ReportParameter("EnvioCP", EnvioCP))
|
|
params.Add(New ReportParameter("Contrato", Contrato))
|
|
params.Add(New ReportParameter("Paqueteria", Paqueteria))
|
|
params.Add(New ReportParameter("NumeroContrato", NumContrato))
|
|
params.Add(New ReportParameter("Guia", Guia))
|
|
|
|
'CAMBIAMOS DE FORMATO POR QUE TIENE CONTRATO
|
|
RutaFormato = "{0}Formatos\TrasladoAlmacen.rdlc"
|
|
'CAMBIAMOS LA OBSERVACION POR LA DE LA SOLICITUD DE TRASLADO
|
|
Observaciones = ObservacionesSolicitud
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa = 119 Then
|
|
If CalleOrigen.Length > 0 Then
|
|
SBDireccionO.AppendFormat("{0}", CalleOrigen)
|
|
If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
|
|
If ColoniaOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", ColoniaOrigen)
|
|
If CPOrigen.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", CPOrigen)
|
|
If LocalidadOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", LocalidadOrigen)
|
|
If MunicipioOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", MunicipioOrigen)
|
|
If EstadoOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", EstadoOrigen)
|
|
If PaisOrigen.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", PaisOrigen)
|
|
params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString))
|
|
End If
|
|
If CalleDestino.Length > 0 Then
|
|
SBDireccionD.AppendFormat("{0}", CalleDestino)
|
|
If NoExtDestino.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", NoExtDestino)
|
|
If ColoniaDestino.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", ColoniaDestino)
|
|
If CPDestino.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", CPDestino)
|
|
If LocalidadDestino.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", LocalidadDestino)
|
|
If MunicipioDestino.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", MunicipioDestino)
|
|
If EstadoDestino.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", EstadoDestino)
|
|
If PaisDestino.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", PaisDestino)
|
|
params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString))
|
|
End If
|
|
End If
|
|
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
|
|
If Archivo.Exists Then
|
|
If UsuarioActual.CveEmpresa = 140 Then
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
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
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
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("CantidadProductos", CantidadProductos.ToString()))
|
|
params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
|
|
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
|
|
params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
|
|
Else
|
|
params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
|
|
params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
|
|
params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
|
|
params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga))
|
|
params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio))
|
|
|
|
DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
|
|
End If
|
|
|
|
ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
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
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
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))
|
|
ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
|
|
|
|
Case 9, 27 ' T R A S L A D O - E N T R A D A
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("CveConcepto", "9")) 'FolioTraspaso.ToString
|
|
'params.Add(New ReportParameter("TipoTraslado", "RECEPCIÓN")) 'FolioTraspaso.ToString
|
|
params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", AlmacenDestino, Almacen))) 'DdlAlmacenDestino.SelectedItem.ToString
|
|
params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString
|
|
params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text
|
|
params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
|
|
'params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre
|
|
params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text
|
|
params.Add(New ReportParameter("Accion", "RECIBIÓ"))
|
|
|
|
If Archivo.Exists Then
|
|
params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
|
|
params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
|
|
params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
|
|
ElseIf UsuarioActual.CveEmpresa = 140 Then
|
|
params.Add(New ReportParameter("CantidadProductos", "500"))
|
|
params.Add(New ReportParameter("CantidadUsados", "500"))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
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
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
|
|
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("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
|
|
params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
|
|
End If
|
|
|
|
|
|
|
|
ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
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
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
|
|
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))
|
|
ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 10 'E N T R A D A P O R C O N S I G N A C I Ó N
|
|
If CveConsignacion > 0 Then
|
|
'buscar en compras, para mandar los datos
|
|
Dim ObjInventarios As New ClsInventarios()
|
|
If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
|
|
Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("TipoDocumento", "Entrada por Consignación"))
|
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("Folio", Folio.ToString))
|
|
params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString))
|
|
params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
|
|
params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
|
|
params.Add(New ReportParameter("Moneda", Moneda))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
PUanacExtr(CveMoneda)
|
|
ImprimirPDF(String.Format("{0}Formatos/EntradasConsignacion.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
ObjInventarios.Dispose()
|
|
|
|
End If
|
|
Case 11 'S A L I D A P O R C O N S I G N A C I Ó N
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
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)))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasConsignacion.rdlc", DtMovimientos, params, String.Format("Salida por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Case 12 'D E V O L U C I O N D E C O N S I G N A C I O N
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim ObjInventarios As New ClsInventarios()
|
|
|
|
If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
|
|
params.Add(New ReportParameter("CveConcepto", "12"))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
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)))
|
|
params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
|
|
params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("CiudadProveedor", " "))
|
|
params.Add(New ReportParameter("EstadoProveedor", " "))
|
|
params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("Consignacion", dr("SerieFolio").ToString))
|
|
'params.Add(New ReportParameter("Serie", Serie))
|
|
'params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
|
|
'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
|
|
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
End If
|
|
'ObjInventarios.Dispose()
|
|
Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
|
|
If ObjInventarios.GetMovimientosDetalle(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
|
Dim TotalFinal As Double = ObjInventarios.DtResultados.SUM("Total") * 1.16
|
|
Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
|
|
'params.Add(New ReportParameter("IVA", dr("IVA").ToString))
|
|
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", TotalFinal.Texto2Letras().ToUpper)))
|
|
|
|
End If
|
|
ObjInventarios.Dispose()
|
|
|
|
'If CveCompra > 0 Then
|
|
' Dim ObjCompra As New ClsCompras()
|
|
' If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
|
' Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
|
|
' params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
' params.Add(New ReportParameter("Serie", dr("SerieFolio").ToString))
|
|
' params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
|
|
' params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
|
|
' params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
|
|
' params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
|
' params.Add(New ReportParameter("TotalLetra", String.Format("({0})", (dr("Total").ToString.ToDouble).Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
|
|
|
|
' End If
|
|
' ObjCompra.Dispose()
|
|
'End If
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios")
|
|
Case 13 'D E V O L U C I O N D E P R O V E E D O R
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
|
|
Dim ObjCompra As New ClsCompras()
|
|
If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
|
|
Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
|
|
Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate
|
|
Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate
|
|
params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
|
|
params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString))
|
|
params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString))
|
|
'params.Add(New ReportParameter("Folio", Folio.ToString))
|
|
params.Add(New ReportParameter("Serie", dr("Serie").ToString))
|
|
|
|
'params.Add(New ReportParameter("NumeroOrden", dr("OCVinculada").ToString))
|
|
params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString))
|
|
params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
|
|
params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("CiudadProveedor", " "))
|
|
params.Add(New ReportParameter("EstadoProveedor", " "))
|
|
params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("CodigoProveedor", dr("FolioMovimiento").ToString))
|
|
params.Add(New ReportParameter("OrigenCompra", dr("SerieFolio").ToString))
|
|
params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
|
|
params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
|
|
params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
|
|
params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
|
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
|
|
|
|
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
|
|
params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
|
|
|
|
Else
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
End If
|
|
ObjCompra.Dispose()
|
|
|
|
If Not Archivo.Exists Then
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
|
|
Case 14 'E N T R E G A P O R G A R A N T I A
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
Dim SisEmpresa As New ClsSisEmpresas()
|
|
Dim EmpInfo As DataRow
|
|
Dim domicilioFiscal As String = ""
|
|
If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
EmpInfo = SisEmpresa.DtResultados.Rows(0)
|
|
domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
|
|
params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal))
|
|
End If
|
|
End If
|
|
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", "Entrada por garantia"))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", ""))
|
|
params.Add(New ReportParameter("Entrega", ""))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaGarantia.rdlc", DtMovimientos, params, String.Format("EntradaPorGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 15 'S A L I D A G A R A N T I A
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
|
|
|
|
params.Add(New ReportParameter("Concepto", "Salida Garantía"))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", ""))
|
|
params.Add(New ReportParameter("Entrega", ""))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
' If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
|
|
'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'Else
|
|
' params.Add(New ReportParameter("Folio", Folio))
|
|
' params.Add(New ReportParameter("Fecha", Fecha))
|
|
' params.Add(New ReportParameter("Almacen", Almacen))
|
|
' params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
' 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)))
|
|
' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'End If
|
|
|
|
|
|
Case 18 'D E V O L U C I O N D E L C L I E N T E
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If Archivo.Exists Then
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES
|
|
'If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
Dim SisEmpresa As New ClsSisEmpresas()
|
|
Dim EmpInfo As DataRow
|
|
Dim domicilioFiscal As String = ""
|
|
If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
EmpInfo = SisEmpresa.DtResultados.Rows(0)
|
|
domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
|
|
params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal))
|
|
End If
|
|
End If
|
|
End If
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'End If
|
|
Else
|
|
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 CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'End If
|
|
End If
|
|
|
|
Case 19 'ARMADO DE PAQUETE
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
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
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Armado de Paquete"))
|
|
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("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 20 'DESARMADO DE PAQUETE
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
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
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
|
|
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("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Desarmado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
|
|
Case 21, 22 'SALIDA POR PRESTAMO
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
|
|
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
|
Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
|
|
End If
|
|
|
|
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
|
|
|
|
'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
If CveConcepto = 21 Then
|
|
params.Add(New ReportParameter("Concepto", "Salida por Prestamo"))
|
|
Else
|
|
params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
|
|
End If
|
|
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("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
Else
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
End If
|
|
If CveConcepto = 21 Then
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
ElseIf CveConcepto = 22 Then
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
'Case 22 'ENTRADA POR PRESTAMO
|
|
' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
' Dim params As New List(Of ReportParameter)
|
|
|
|
' 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
|
|
|
|
' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
|
|
' 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("Descuentos", ""))
|
|
' params.Add(New ReportParameter("IVA", ""))
|
|
' params.Add(New ReportParameter("Total", ""))
|
|
' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
' params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
' If (UsuarioActual.CveEmpresa = 72) Then
|
|
' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
' End If
|
|
' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 24 'SALIDA POR RESGUARDO
|
|
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc"
|
|
|
|
If Not ArchivoRuta.Exists Then
|
|
Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
|
|
End If
|
|
|
|
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 DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
|
|
Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
|
|
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("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
params.Add(New ReportParameter("NombreEntrego", NombreEntrego))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
|
|
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
params.Add(New ReportParameter("Sucursal", SubProyecto))
|
|
params.Add(New ReportParameter("DepartamenteRecibio", DepartamentoRecibe))
|
|
params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
|
|
|
|
End If
|
|
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
|
|
|
|
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
|
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
|
|
End If
|
|
|
|
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
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
|
|
Dim Mov As New ClsInventarios
|
|
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
|
|
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
|
|
TipoResponsable = "Personal"
|
|
Responsable = Recibio
|
|
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
|
|
TipoResponsable = "Cliente"
|
|
Responsable = Mov.DtResultados(0)("Nombre").ToString
|
|
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
|
|
TipoResponsable = "Proveedor"
|
|
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
End If
|
|
End If
|
|
Mov.Dispose()
|
|
|
|
params.Add(New ReportParameter("Responsable", Responsable))
|
|
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
|
|
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
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 ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo")
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", ConceptoReporte))
|
|
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("Proveedor", Proveedor))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/PrestamosProveedor.rdlc", DtMovimientos, params, String.Format("Proveedor - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 30
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = "" 'String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
|
|
params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
|
|
params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
|
|
params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
|
|
params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
|
|
params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
|
|
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
|
|
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
'End If
|
|
|
|
If Archivo2.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 31 'SALIDA POR DEMOSTRACION
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidaDemostracion.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If Archivo.Exists Then
|
|
params.Add(New ReportParameter("Concepto", "SALIDA POR DEMOSTRACIÓN"))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidaDemostracion.rdlc", DtMovimientos, params, String.Format("Salida por Demostración - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
Case 34, 35 ' S A L I D A S P O R A J U S T E --- S A L I D A M A N U A L
|
|
'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))
|
|
Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then
|
|
If Archivo2.Exists Then
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
|
|
params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
|
|
params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
|
|
params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
|
|
params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
|
|
params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
|
|
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
|
|
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
|
|
End If
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
Else
|
|
If Archivo.Exists Then
|
|
|
|
Dim ConceptoReporte As String = "SALIDA POR AJUSTE"
|
|
If CveConcepto = 35 Then ConceptoReporte = "SALIDA MANUAL"
|
|
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
|
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString))
|
|
params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString))
|
|
params.Add(New ReportParameter("DireccionCliente", DomicilioCliente))
|
|
params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString))
|
|
|
|
If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
|
|
If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
|
|
If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString))
|
|
params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
|
|
Else
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
|
|
If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
|
|
If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)
|
|
|
|
Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
|
|
Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()
|
|
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString))
|
|
params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
|
|
End If
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", ConceptoReporte))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha))
|
|
|
|
|
|
'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Else
|
|
Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
|
|
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
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(143) Then
|
|
Dim objclientes As New ClsClientes
|
|
If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then
|
|
params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString))
|
|
End If
|
|
If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
|
|
If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
|
|
If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
Else
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
|
|
If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
|
|
If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)
|
|
|
|
Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
|
|
Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
End If
|
|
End If
|
|
|
|
|
|
If A.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
Case 42 'ENTRADAS USADOS
|
|
|
|
Dim ObjAcum As New ClsAcumuladores
|
|
Dim DatosEntradasUsados As New DataTable
|
|
Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen))
|
|
If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then
|
|
DatosEntradasUsados = ObjAcum.DtResultados
|
|
|
|
End If
|
|
ObjAcum.Dispose()
|
|
|
|
Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
|
|
Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)
|
|
|
|
Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today))
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("Direccion", Almacen))
|
|
params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
|
|
'params.Add(New ReportParameter("FechaInicial", Fecha))
|
|
'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Sucursal", "Sucursal"))
|
|
params.Add(New ReportParameter("Cliente", NombreCliente))
|
|
|
|
ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
|
|
Case 7
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'End If
|
|
|
|
End Select
|
|
|
|
If CveConcepto = 2 Then
|
|
ElseIf CveConcepto = 3 Then
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'OC' - IMPRIME PDF OC"
|
|
Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
|
|
Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
|
|
'Dim reporte As Byte() = GeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
|
|
If IsNothing(reporte) Then
|
|
Else
|
|
Dim ObjOC As New ClsOC
|
|
Dim Folio As Integer = 0
|
|
If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
|
|
Folio = ObjOC.Folio
|
|
End If
|
|
ObjOC.Dispose()
|
|
If Folio > 0 Then
|
|
ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ImprimePDFCotOC(CveOrdenCompra As Integer)
|
|
Dim reporte As Byte()
|
|
|
|
reporte = NewGeneraOCCotizacion(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
|
|
If IsNothing(reporte) Then
|
|
Else
|
|
Dim ObjOC As New ClsOC
|
|
Dim Folio As Integer = 0
|
|
If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
|
|
Folio = ObjOC.Folio
|
|
End If
|
|
ObjOC.Dispose()
|
|
If Folio > 0 Then
|
|
ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'VAL' - IMPRIME PDF VAL"
|
|
Private Sub GenerarPDFVale(CveVale As Integer)
|
|
|
|
Dim ObjAF As New ClsAF
|
|
If ObjAF.GetValesCombustible(-1, CveVale, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
|
|
Dim dtVC As DataTable = ObjAF.DtResultados
|
|
Dim dr As DataRow = dtVC.Rows(0)
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Proveedor", dr("RazonSocial").ToString))
|
|
params.Add(New ReportParameter("Obra", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("NoEconomico", dr("Codigo").ToString))
|
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString))
|
|
params.Add(New ReportParameter("Operador", dr("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Combustible", dr("Combustible").ToString))
|
|
params.Add(New ReportParameter("LitrosCombustible", dr("Litros").ToString))
|
|
ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params)
|
|
|
|
'ImprimirPDFview(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "formato", "pdf", ReportViewer1)
|
|
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas\1\Formatos\ValesCombustible.rdlc", UsuarioActual.Empresa.Rulrdsta))
|
|
'If Archivo.Exists Then
|
|
|
|
'Else
|
|
' 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
' ImprimirPDF("/Empresas/1/Formatos/ValesCombustible.rdlc", dtVC, params, "ValeCombustible")
|
|
'End If
|
|
End If
|
|
ObjAF.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'OS' - IMPRIMIR PDF OS"
|
|
Private Sub GenerarPDFOS(CveOS As Integer)
|
|
Dim ObjOS As New ClsOS()
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim CveFolio = ""
|
|
CreaDT()
|
|
Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
|
If ObjOS.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim dtOS As DataTable = ObjOS.DtResultados
|
|
Dim dr As DataRow = dtOS.Rows(0)
|
|
params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
|
|
params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString))
|
|
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
|
params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString))
|
|
params.Add(New ReportParameter("FolioOS", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString))
|
|
params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
|
|
params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString))
|
|
params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
|
|
CveFolio = dr("Folio").ToString
|
|
|
|
If ReporteEmpresa.Exists Then
|
|
params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
|
|
params.Add(New ReportParameter("RFC", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("Vendedor", " "))
|
|
params.Add(New ReportParameter("Correo", dr("Correo").ToString))
|
|
params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
|
|
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
|
|
params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
|
|
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
|
params.Add(New ReportParameter("Copia", "Copia: Original"))
|
|
params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Not ReporteEmpresa.Exists Then
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
End If
|
|
|
|
If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
|
|
TmpDTOS = ObjOS.DtResultados
|
|
End If
|
|
|
|
If ObjOS.GetDetalleMateriales(-1, CveOS) Then
|
|
TmpDTMaterialesOS = ObjOS.DtResultados
|
|
End If
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
|
|
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
|
|
|
|
lrds.Add(rds)
|
|
lrds.Add(rds2)
|
|
ObjOS.Dispose()
|
|
|
|
ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
|
|
End Sub
|
|
Private Sub CreaDT()
|
|
TmpDTOS = New DataTable
|
|
TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
|
|
|
TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer))
|
|
TmpDTOS.Columns.Add("Clasificacion", GetType(String))
|
|
TmpDTOS.Columns.Add("CvePS", GetType(Integer))
|
|
TmpDTOS.Columns.Add("CveUM", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UM", GetType(String))
|
|
TmpDTOS.Columns.Add("Cantidad", GetType(Integer))
|
|
TmpDTOS.Columns.Add("PS", GetType(String))
|
|
TmpDTOS.Columns.Add("Especificaciones", GetType(String))
|
|
TmpDTOS.Columns.Add("Materiales", GetType(String))
|
|
TmpDTOS.Columns.Add("CveCuentaEquipo", GetType(Integer))
|
|
TmpDTOS.Columns.Add("Observaciones", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaAtencion", GetType(String))
|
|
TmpDTOS.Columns.Add("CveUsuarioAtendio", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UsuarioAtendio", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaTermino", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaEntrega", GetType(String))
|
|
TmpDTOS.Columns.Add("CveUsuarioEntrego", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UsuarioEntrego", GetType(String))
|
|
TmpDTOS.Columns.Add("SeFacturara", GetType(String))
|
|
TmpDTOS.Columns.Add("SeSuperviso", GetType(String))
|
|
TmpDTOS.Columns.Add("Estatus", GetType(String))
|
|
TmpDTOS.Columns.Add("Archivo", GetType(String))
|
|
TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String))
|
|
End Sub
|
|
Private Sub CreaDTMateriales()
|
|
TmpDTMaterialesOS = New DataTable
|
|
TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
|
|
|
TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveMaterial", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("Cantidad", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveClasificacion", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CvePS", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("CveUM", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'OI' - Crear Archivo "
|
|
Private Sub CrearArchivo(Archivo As String)
|
|
Dim ObjEventos As New ClsOIEventos
|
|
|
|
Dim path As String = Server.MapPath(String.Format(Archivo))
|
|
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
|
|
|
|
DescargarArchivo(file)
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'Contratos' - Crear Archivo "
|
|
Private Sub CrearArchivoContratos(Archivo As String)
|
|
|
|
|
|
Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server
|
|
|
|
DescargarArchivo(file)
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'OI' - Descargar Archivo "
|
|
Private Sub DescargarArchivo(File As System.IO.FileInfo)
|
|
If File.Exists Then 'set appropriate headers
|
|
Response.Clear()
|
|
Response.AddHeader("Content-Disposition", "attachment; filename=" & File.Name)
|
|
Response.AddHeader("Content-Length", File.Length.ToString())
|
|
Response.ContentType = "application/octet-stream"
|
|
|
|
'Select Case Path.GetExtension(File.Name).ToLower()
|
|
' Case ".jpg"
|
|
' Response.ContentType = "image/jpg"
|
|
' Case ".gif"
|
|
' Response.ContentType = "image/gif"
|
|
' Case ".png"
|
|
' Response.ContentType = "image/png"
|
|
' Case ".docx"
|
|
' Response.ContentType = "application/ms-word"
|
|
' Case ".xlsx"
|
|
' Response.ContentType = "application/ms-excel"
|
|
' Case ".xlsx"
|
|
' Response.ContentType = "application/ms-excel"
|
|
'End Select
|
|
|
|
Response.WriteFile(File.FullName)
|
|
Response.End() 'if file does not exist
|
|
Else
|
|
Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
|
|
|
|
End If 'nothing in the URL as HTTP GET
|
|
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
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
Dim dtVC As DataTable = Nothing
|
|
Dim dtHijos As DataTable = Nothing
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim dr As DataRow = Nothing
|
|
Dim NomArchivo As String = "Reporte"
|
|
|
|
If ObjAF.GetActivosFijosResguardos(-1, CveAFR, -1, -1) Then
|
|
dtVC = ObjAF.DtResultados
|
|
End If
|
|
|
|
|
|
dr = dtVC.Rows(0)
|
|
|
|
Select Case Tipo
|
|
Case 1
|
|
params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
|
|
NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}"
|
|
|
|
If dtVC.Rows.Count > 0 Then
|
|
If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then
|
|
dtHijos = ObjAF.DtResultados
|
|
dtVC.Merge(dtHijos)
|
|
End If
|
|
End If
|
|
Case 2
|
|
params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
|
|
NomArchivo = $"Traslado_Folio{dr("Folio").ToString}"
|
|
Case 3
|
|
params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
|
|
NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}"
|
|
Case 4
|
|
params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
|
|
NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}"
|
|
|
|
If dtVC.Rows.Count > 0 Then
|
|
If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then
|
|
dtHijos = ObjAF.DtResultados
|
|
dtVC.Merge(dtHijos)
|
|
End If
|
|
End If
|
|
End Select
|
|
|
|
ObjAF.Dispose()
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
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
|
|
|
|
params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Responsable", dr("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Observaciones", dr("ObservacionesAF").ToString))
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72) Then
|
|
Dim SBDomicilioSucursal As New StringBuilder()
|
|
Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
|
|
|
|
If DRSucursal IsNot Nothing Then
|
|
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
|
|
Dim DomicilioSucursal As String = ""
|
|
|
|
SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
|
|
If DRSucursal("NoExt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString.ToEntero)
|
|
If DRSucursal("NoInt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString.ToEntero)
|
|
If DRSucursal("Colonia").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString)
|
|
If DRSucursal("CP").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString)
|
|
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
|
|
If DRSucursal("Pais").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString)
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString))
|
|
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("DepartamentoEntrego", dr("DepartamentoEntrego").ToString))
|
|
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("Telefono", dr("Celular").ToString))
|
|
params.Add(New ReportParameter("Direccion", dr("DireccionPersonal").ToString))
|
|
params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString))
|
|
End If
|
|
|
|
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, NomArchivo)
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub ImprimirPDFAFR2(CveAFR As Integer, Tipo As Integer)
|
|
|
|
Dim ObjAF As New ClsAF
|
|
|
|
Dim dtVC As DataTable = Nothing
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim dr As DataRow = Nothing
|
|
Dim NomArchivo As String = "Reporte"
|
|
|
|
If Tipo = 1 OrElse Tipo = 2 Then
|
|
If ObjAF.GetActivosFijosResguardos(-1, -1, -1, CveAFR) Then
|
|
dtVC = ObjAF.DtResultados
|
|
End If
|
|
ElseIf Tipo = 3 OrElse Tipo = 4 Then
|
|
If ObjAF.GetActivosFijosResguardos(-1, -1, -1, -1, CveResguardo2:=CveAFR) Then
|
|
dtVC = ObjAF.DtResultados
|
|
End If
|
|
End If
|
|
ObjAF.Dispose()
|
|
|
|
dr = dtVC.Rows(0)
|
|
|
|
|
|
Select Case Tipo
|
|
Case 1
|
|
params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
|
|
NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}"
|
|
Case 2
|
|
params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString} "))
|
|
NomArchivo = $"Traslado_Folio{dr("Folio").ToString}"
|
|
Case 3
|
|
params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
|
|
NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}"
|
|
Case 4
|
|
params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
|
|
NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}"
|
|
End Select
|
|
|
|
params.Add(New ReportParameter("Subproyecto", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.NombreCorto))
|
|
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Responsable", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
|
|
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'POL' "
|
|
Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
|
|
'Dim ObjConta As New ClsContabilidad
|
|
Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
|
|
Dim dtVC As DataTable
|
|
Dim dr As DataRow
|
|
dtVC = ObjPoliza.DtResultados
|
|
dr = dtVC.Rows(0)
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
|
|
params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
|
|
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
|
|
params.Add(New ReportParameter("Numero", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Moneda", ""))
|
|
params.Add(New ReportParameter("CodigoPostal", ""))
|
|
|
|
If UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
|
End If
|
|
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza")
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza")
|
|
End If
|
|
End If
|
|
|
|
ObjPoliza.Dispose()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'CAN' - CANCELACION"
|
|
Public Sub ImprimeCancelacion(CveVenta As Integer)
|
|
Dim ObjVentas As New ClsVentas
|
|
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
Dim drv As DataRow = ObjVentas.DtResultados.Rows(0)
|
|
Dim FolioFiscal = drv("FolioFiscal").ToString
|
|
Dim SelloCancelacion = drv("SelloCancelacion").ToString
|
|
Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm:ss")
|
|
Dim RFC = UsuarioActual.Empresa.RFC
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas))
|
|
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString))
|
|
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
|
|
params.Add(New ReportParameter("RFCEmisor", RFC))
|
|
params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion))
|
|
|
|
' If Archivo.Exists Then
|
|
ImprimirPDF(Archivo.FullName, DtDetalle, params, "AcuseCancelacion" & CveVenta)
|
|
' End If
|
|
|
|
End If
|
|
ObjVentas.Dispose()
|
|
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))
|
|
|
|
Dim ObjIE As New ClsBancos()
|
|
Dim Tabla As DataTable
|
|
ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa)
|
|
Tabla = ObjIE.DtResultados
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString))
|
|
params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
|
|
params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
|
|
|
|
If Archivo.Exists Then
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
|
|
Else
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
ImprimirPDF("Empresas\Grales\Formatos\DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
|
|
End If
|
|
|
|
|
|
ObjIE.Dispose()
|
|
|
|
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()
|
|
ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa)
|
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
|
CveTipoTransaccion = ObjIE.CveTipoTransaccion
|
|
End If
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
|
|
If CveTipoTransaccion = 1 Then
|
|
Dim Folio = ObjIE.Folio
|
|
Dim Importe = ObjIE.Importe
|
|
Dim Observacion = ObjIE.Observaciones
|
|
Dim ImporteLetra = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
|
Dim Beneficiario = ObjIE.PagueseA
|
|
Dim Fecha = ObjIE.FechaDocumento.ToShortDateString
|
|
Dim CveCuenta = ObjIE.CveCuenta
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Beneficiario", Beneficiario))
|
|
params.Add(New ReportParameter("Importe", Importe.FormatoNumero))
|
|
params.Add(New ReportParameter("ImporteLetra", ImporteLetra.ToUpper))
|
|
params.Add(New ReportParameter("Observaciones", Observacion))
|
|
params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
|
|
|
|
Dim DtMovimientosPoliza As DataTable = Nothing
|
|
If UsuarioActual.CveEmpresa = 48 Then
|
|
'Movimientos del IE
|
|
If ObjIE.IDPoliza > 0 Then
|
|
|
|
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
|
|
Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
|
|
Else
|
|
DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
|
|
End If
|
|
|
|
ObjConta.Dispose()
|
|
Else
|
|
DtMovimientosPoliza = New DataTable
|
|
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
|
|
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
|
|
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
|
|
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
|
|
|
|
Dim Dr = DtMovimientosPoliza.NewRow
|
|
Dr("CODIGO") = ""
|
|
Dr("Cuenta") = ""
|
|
Dr("Cargo") = 0
|
|
Dr("Abono") = 0
|
|
DtMovimientosPoliza.Rows.Add(Dr)
|
|
End If
|
|
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
|
|
Dim PreP As New ClsContabilidad
|
|
If PreP.GetPrePolizasDetalle(-1, CveIE) Then
|
|
DtMovimientosPoliza = New DataTable
|
|
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
|
|
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
|
|
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
|
|
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
|
|
|
|
If PreP.DtResultados.Rows.Count > 0 Then
|
|
|
|
For Each drt As DataRow In PreP.DtResultados.Rows
|
|
Dim Dr = DtMovimientosPoliza.NewRow
|
|
Dr("CODIGO") = drt("CuentaCodigo")
|
|
Dr("Cuenta") = drt("CuentaNombre")
|
|
Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
|
|
Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
|
|
DtMovimientosPoliza.Rows.Add(Dr)
|
|
|
|
Next
|
|
|
|
|
|
End If
|
|
End If
|
|
PreP.Dispose()
|
|
End If
|
|
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
|
|
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
|
|
Else
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
|
|
ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
|
|
End If
|
|
|
|
|
|
ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
|
|
|
|
Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
|
|
Dim FechaExpedicion As Date = Now
|
|
Dim Importe As Double
|
|
Dim FormatoCheque As String = ""
|
|
|
|
Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
|
|
Dim tIdPoliza As Integer
|
|
Dim DtMovimientosPoliza As DataTable = Nothing
|
|
Dim RFC As String = ""
|
|
Dim Correo As String = ""
|
|
Dim CLABE As String = ""
|
|
Dim NoSucursal As String = ""
|
|
Dim Telefono As String = ""
|
|
Dim IVA As Double = 0
|
|
|
|
Folio = ""
|
|
TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
|
|
CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
|
|
Ruta = UsuarioActual.Empresa.Ruta
|
|
|
|
PagueseA = ObjIE.PagueseA
|
|
Folio = ObjIE.Folio
|
|
Importe = ObjIE.Importe
|
|
CveTipoTransaccion = ObjIE.CveTipoTransaccion
|
|
Banco = ObjIE.Banco
|
|
NumCuenta = ObjIE.DepositoCuenta
|
|
If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
|
|
CLABE = ObjIE.DepositoCLABE
|
|
If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
|
|
NoSucursal = ObjIE.DepositoSucursal
|
|
RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
|
|
TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
|
FechaExpedicion = ObjIE.FechaDocumento
|
|
Observacion = ObjIE.Observaciones
|
|
UsuarioRegistro = ObjIE.UsuarioNombre
|
|
SubProyecto = ObjIE.SubProyecto
|
|
AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
|
|
NotificarA = ObjIE.NotificarA
|
|
tIdPoliza = ObjIE.IDPoliza
|
|
|
|
Dim PreP As New ClsContabilidad
|
|
If PreP.GetPrePolizasDetalle(-1, CveIE) Then
|
|
If PreP.DtResultados.Rows.Count > 0 Then
|
|
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
|
|
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
|
|
|
|
IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
|
|
|
|
If CveProveedor > 0 Then
|
|
Dim Prov As New ClsCompProveedores
|
|
If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
|
|
If Prov.DtResultados.Rows.Count > 0 Then
|
|
RFC = Prov.DtResultados.Rows(0)("RFC").ToString
|
|
Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
|
|
End If
|
|
End If
|
|
Prov.Dispose()
|
|
End If
|
|
|
|
If CvePersonal > 0 Then
|
|
Dim RH As New ClsRH
|
|
If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
|
|
If RH.DtResultados.Rows.Count > 0 Then
|
|
Correo = RH.DtResultados.Rows(0)("Correo").ToString
|
|
Banco = RH.DtResultados.Rows(0)("Banco").ToString
|
|
NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
|
|
CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
RH.Dispose()
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
PreP.Dispose()
|
|
|
|
|
|
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
|
|
params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
|
|
params.Add(New ReportParameter("PagueseA", PagueseA))
|
|
params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
|
|
params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
|
|
params.Add(New ReportParameter("Banco", Banco))
|
|
params.Add(New ReportParameter("NumCuenta", NumCuenta))
|
|
params.Add(New ReportParameter("CLABE", CLABE))
|
|
params.Add(New ReportParameter("Concepto", Observacion))
|
|
params.Add(New ReportParameter("Factura", ""))
|
|
params.Add(New ReportParameter("RFC", RFC))
|
|
params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
|
|
params.Add(New ReportParameter("NumSucursal", NoSucursal))
|
|
params.Add(New ReportParameter("Correo", Correo))
|
|
params.Add(New ReportParameter("Telefono", Telefono))
|
|
params.Add(New ReportParameter("NotifiqueA", NotificarA))
|
|
params.Add(New ReportParameter("Obra", SubProyecto))
|
|
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
|
|
params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
|
|
|
|
If UsuarioActual.CveEmpresa = 66 Then
|
|
params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
|
|
End If
|
|
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
|
|
Else
|
|
ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
|
|
End If
|
|
|
|
ElseIf CveTipoTransaccion.Contiene(6) Then
|
|
'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
|
|
Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
|
|
Dim Ruta As String = UsuarioActual.Empresa.Ruta
|
|
Dim FechaExpedicion As Date = Now
|
|
Dim Importe As Double
|
|
Dim FormatoCheque As String = ""
|
|
|
|
DtDetalle = Nothing
|
|
|
|
PagueseA = ObjIE.PagueseA
|
|
Folio = ObjIE.Folio
|
|
Importe = ObjIE.Importe
|
|
CveTipoTransaccion = ObjIE.CveTipoTransaccion
|
|
|
|
TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
|
Observacion = ObjIE.Observaciones
|
|
UsuarioRegistro = ObjIE.UsuarioNombre
|
|
|
|
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
|
|
params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
|
|
params.Add(New ReportParameter("PagueseA", PagueseA))
|
|
params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
|
|
params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
|
|
|
|
params.Add(New ReportParameter("Concepto", Observacion))
|
|
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
|
|
params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta))
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE))
|
|
'Else
|
|
' ImprimirPDF("Empresas\Grales\Formatos\ComprobanteEgreso.rdlc", DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE))
|
|
End If
|
|
End If
|
|
|
|
ObjIE.Dispose()
|
|
|
|
End Sub
|
|
|
|
Private Sub ImprimeMov(CveIE As Integer)
|
|
Dim ObjIE As New ClsBancos()
|
|
Dim DtGvRH As New DataTable
|
|
Dim DtComprobacion As New DataTable
|
|
Dim ParamComprobacion As New DataTable
|
|
|
|
'Movimientos Relacionados de Comprobacion - Hijo
|
|
If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then
|
|
DtGvRH = ObjIE.DtResultados
|
|
End If
|
|
|
|
If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then
|
|
|
|
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
|
ParamComprobacion = ObjIE.DtResultados
|
|
End If
|
|
|
|
Dim ObjMov As New ClsMovimientos
|
|
For Each dr As DataRow In DtGvRH.Rows
|
|
If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then
|
|
DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString))
|
|
End If
|
|
Next
|
|
ObjMov.Dispose()
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If Archivo.Exists Then
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
|
params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
|
|
params.Add(New ReportParameter("CveFyE", "0")) '
|
|
|
|
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
|
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
|
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
|
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
|
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
|
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
|
|
|
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
|
|
Else
|
|
params.Add(New ReportParameter("Numero", "")) '
|
|
params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
|
|
params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
|
|
params.Add(New ReportParameter("Fecha", Now.Date.ToString))
|
|
params.Add(New ReportParameter("Elaboro", ""))
|
|
params.Add(New ReportParameter("Autorizo", ""))
|
|
params.Add(New ReportParameter("ElaboroPuesto", ""))
|
|
params.Add(New ReportParameter("AutorizoPuesto", ""))
|
|
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras")
|
|
End If
|
|
Else
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
|
|
|
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
|
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
|
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
|
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
|
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
|
|
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
|
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
|
|
End If
|
|
Else
|
|
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim reportDataSetsList As New List(Of ReportDataSource)
|
|
|
|
Dim dtMovs As New DataTable
|
|
Dim Mov As New ClsContabilidad
|
|
If Mov.GetPrePolizasDetalle(-1, CveIE) Then
|
|
|
|
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")
|
|
|
|
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
|
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
|
|
For Each Dr As DataRow In dtMovs.Rows
|
|
Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
|
|
Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
|
Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
|
Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
|
Next
|
|
End If
|
|
|
|
End If
|
|
Mov.Dispose()
|
|
Dim rds = New ReportDataSource("DataSet1", dtMovs)
|
|
reportDataSetsList.Add(rds)
|
|
|
|
Dim dtnc As New DataTable
|
|
Dim ObjCompra As New ClsCompras()
|
|
If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
|
|
dtnc = ObjCompra.DtResultados
|
|
End If
|
|
ObjCompra.Dispose()
|
|
Dim rds2 = New ReportDataSource("DataSet2", dtnc)
|
|
reportDataSetsList.Add(rds2)
|
|
dtnc.Dispose()
|
|
|
|
Dim paramList As New List(Of ReportParameter)
|
|
With paramList
|
|
'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
|
|
Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
|
.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
.Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
|
|
.Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
|
|
.Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
|
|
.Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
|
|
.Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
|
|
.Add(New ReportParameter("Folio", ObjIE.Folio, True))
|
|
.Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
|
|
|
|
|
|
If Imagen.Exists Then
|
|
.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
End With
|
|
dtMovs.Dispose()
|
|
|
|
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
|
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
DtGvRH.Dispose()
|
|
DtComprobacion.Dispose()
|
|
ParamComprobacion.Dispose()
|
|
|
|
ObjIE.Dispose()
|
|
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 Region
|
|
|
|
#Region "OP = VTA - 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)
|
|
|
|
If File.Exists Then
|
|
Dim Reporte As StiReport = New StiReport()
|
|
Reporte.Load(Directorio1)
|
|
Reporte.Dictionary.DataSources.Clear()
|
|
|
|
Dim ds As DataSet = New DataSet()
|
|
Venta.DtDetalle.TableName = "Datos"
|
|
|
|
ds.Tables.Add(Venta.DtDetalle)
|
|
|
|
Reporte.RegData(ds)
|
|
|
|
Reporte.Dictionary.Variables("Empresa").Value = UsuarioActual.Empresa.Empresa
|
|
|
|
Reporte.Dictionary.Variables("Tipo").Value = "Ingreso"
|
|
Reporte.Dictionary.Variables("RFC").Value = UsuarioActual.Empresa.RFC
|
|
Reporte.Dictionary.Variables("Serie").Value = Venta.Serie
|
|
Reporte.Dictionary.Variables("Folio").Value = Venta.Folio.ToString()
|
|
|
|
Reporte.Dictionary.Variables("ClienteNombre").Value = Venta.Cliente.Nombre
|
|
Reporte.Dictionary.Variables("ClienteDireccion").Value = Venta.Cliente.Direccion
|
|
Reporte.Dictionary.Variables("ClienteLugar").Value = Venta.Cliente.Ciudad
|
|
Reporte.Dictionary.Variables("ClienteRFC").Value = Venta.Cliente.RFC
|
|
|
|
Reporte.Dictionary.Variables("DomicilioExpedicion").Value = Venta.SubProyecto.Direccion
|
|
|
|
Dim SubtTotal As Double = (Venta.DtDetalle.SUM("PU") * Venta.DtDetalle.SUM("Cantidad")) '* 0.16 lleva el IVA?
|
|
Dim IVA As Double = SubtTotal * 0.16 'lleva IVA?
|
|
Dim Total As Double = SubtTotal + IVA
|
|
|
|
'Reporte.Dictionary.Variables("Importe").Value =
|
|
Reporte.Dictionary.Variables("ImporteLetra").Value = Total.Texto2Letras()
|
|
|
|
Reporte.Dictionary.Variables("SubTotal").Value = SubtTotal.ToString()
|
|
Reporte.Dictionary.Variables("IVA").Value = IVA.ToString()
|
|
Reporte.Dictionary.Variables("Total").Value = Total.ToString()
|
|
|
|
Reporte.Dictionary.Variables("UsoCFDI").Value = Venta.UsoCFDI
|
|
Reporte.Dictionary.Variables("MetodoPago").Value = Venta.MetodoPago33
|
|
Reporte.Dictionary.Variables("FormaPago").Value = Venta.FormaPago33
|
|
|
|
Reporte.Dictionary.Variables("QR").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
|
|
Reporte.Dictionary.Variables("SelloCFDI").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
|
|
Reporte.Dictionary.Variables("SelloSAT").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
|
|
Reporte.Dictionary.Synchronize()
|
|
|
|
StiReportResponse.ResponseAsPdf(Me, Reporte)
|
|
Else
|
|
RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = ENTREGAS - Entregas por realizar"
|
|
Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
|
|
Dim Correcto As Boolean = False
|
|
Dim DtPaqueteriasGuias As DataTable = Nothing
|
|
Dim ObjGeneral As New ClsGenerales
|
|
If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
|
|
DtPaqueteriasGuias = ObjGeneral.DtResultados
|
|
Correcto = True
|
|
End If
|
|
ObjGeneral.Dispose()
|
|
If Correcto Then
|
|
Dim RepParams As New List(Of ReportParameter)
|
|
RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
|
|
RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
|
|
RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
|
|
End If
|
|
|
|
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)
|
|
End Function
|
|
#End Region
|
|
|
|
End Class
|