6513 lines
382 KiB
VB.net
6513 lines
382 KiB
VB.net
Option Strict On
|
|
Option Explicit On
|
|
|
|
Imports System.Data
|
|
Imports System.IO
|
|
Imports System.Xml
|
|
Imports Extensiones
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports ZXing
|
|
|
|
|
|
Partial Class PopUpVerFactura
|
|
Inherits ClsPaginas
|
|
|
|
|
|
#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 DirectCast(IfNull(ViewState("DtDetalle"), New DataTable, 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 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 As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
|
|
|
|
If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
|
|
Context.Session("UsuarioSIG") = UsuarioToken
|
|
End If
|
|
End If
|
|
|
|
|
|
If Request("CVETIMBRE") IsNot Nothing AndAlso Request("CVETIMBRE") IsNot Nothing Then
|
|
ImprimeFormatoCartaPorteTimbrado(Request("CVETIMBRE").ToString.ToEntero)
|
|
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).GenerarReportePDF("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
|
|
|
|
If Request("onlyPrint") IsNot Nothing Then
|
|
If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso
|
|
Not IsNothing(Request("CvePeriodo")) AndAlso Not IsNothing(Request("indemnizacion")) Then
|
|
Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa
|
|
Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta
|
|
Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1
|
|
GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion)
|
|
End If
|
|
If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then
|
|
imprimirpallet2(Request("CvePallet").ToString.ToEntero())
|
|
End If
|
|
If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then
|
|
imprimirpallet(Request("CvePallet").ToString.ToEntero())
|
|
End If
|
|
If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then
|
|
imprimirpalletWalmart(Request("CvePallet").ToString.ToEntero())
|
|
End If
|
|
If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
|
|
imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
|
|
End If
|
|
If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
|
|
imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
|
|
End If
|
|
If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
|
|
imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero())
|
|
End If
|
|
|
|
If Request("onlyPrint").ToString() = "rfctxtvalidar" Then
|
|
rfctxtvalidar()
|
|
End If
|
|
If Request("onlyPrint").ToString() = "Recibo" Then
|
|
ReciboAgropecuaria()
|
|
End If
|
|
If Request("onlyPrint").ToString() = "CitrusInventarioDiario" AndAlso Not IsNothing(Request("fecha")) Then
|
|
imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "PDF")
|
|
End If
|
|
If Request("onlyPrint").ToString() = "CitrusInventarioDiarioxls" AndAlso Not IsNothing(Request("fecha")) Then
|
|
imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "Excel")
|
|
End If
|
|
If Request("onlyPrint").ToString() = "CitrusInventarioDiarioSendMail" AndAlso Not IsNothing(Request("fecha")) Then
|
|
imprimirRepcitrusInventarioDiario(Request("fecha").ToString(), "PDF", True)
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DescargaArchivoDirecto(RutaArchivo As String)
|
|
If RutaArchivo <> "" Then
|
|
|
|
'Dim Path As String = String.Format("{0}\{1}", UsuarioActual.Empresa.Ruta, RutaArchivo)
|
|
Dim Archivo As New System.IO.FileInfo(RutaArchivo)
|
|
|
|
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(RutaArchivo)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ReciboAgropecuaria()
|
|
Dim numeroPeriodo As Integer = 0
|
|
Dim cveSubProyecto As Integer = -1
|
|
Dim cveTipoNomina As Integer = -1
|
|
Dim ejercicio As Integer = 0
|
|
Dim cvePersonal As Integer = 0
|
|
Dim tipoTrabajador As String = ""
|
|
Dim facturado As Boolean = False
|
|
If Not IsNothing(Request("numeroPeriodo")) Then
|
|
numeroPeriodo = Request("numeroPeriodo").ToString.ToEntero()
|
|
End If
|
|
If Not IsNothing(Request("ejercicio")) Then
|
|
ejercicio = Request("ejercicio").ToString.ToEntero()
|
|
End If
|
|
If Not IsNothing(Request("cvePersonal")) Then
|
|
cvePersonal = Request("cvePersonal").ToString.ToEntero()
|
|
End If
|
|
If Not IsNothing(Request("cveSubProyecto")) Then
|
|
cveSubProyecto = Request("cveSubProyecto").ToString.ToEntero()
|
|
End If
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Using objnom As New ClsNominas
|
|
If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then
|
|
Dim dt As New DataTable
|
|
dt = objnom.DtResultados.FiltraParametros("CvePersonal >0")
|
|
If (cvePersonal > 0) Then
|
|
dt = dt.FiltraParametros($"CvePersonal ={cvePersonal }")
|
|
End If
|
|
|
|
lrds.Add(New ReportDataSource With {.Name = "DataSet1", .Value = dt})
|
|
End If
|
|
|
|
End Using
|
|
|
|
ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
|
|
End Sub
|
|
Private Sub rfctxtvalidar()
|
|
Dim numeroPeriodo As Integer = 0
|
|
Dim cveSubProyecto As Integer = -1
|
|
Dim cveTipoNomina As Integer = -1
|
|
Dim ejercicio As Integer = 0
|
|
Dim cvePersonal As Integer = 0
|
|
Dim tipoTrabajador As String = ""
|
|
Dim facturado As Boolean = False
|
|
If Not IsNothing(Request("numeroPeriodo")) Then
|
|
numeroPeriodo = Request("numeroPeriodo").ToString.ToEntero()
|
|
End If
|
|
If Not IsNothing(Request("ejercicio")) Then
|
|
ejercicio = Request("ejercicio").ToString.ToEntero()
|
|
End If
|
|
If Not IsNothing(Request("cvePersonal")) Then
|
|
cvePersonal = Request("cvePersonal").ToString.ToEntero()
|
|
End If
|
|
Dim RFCs As New StringBuilder
|
|
Dim contador As Integer = 0
|
|
Using objnom As New ClsNominas
|
|
If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then
|
|
For Each item As DataRow In objnom.DtResultados.Select("CvePersonal > 0")
|
|
Dim rfc As String = item("RFC").ToString().Trim()
|
|
If rfc.Length > 0 Then
|
|
contador = contador + 1
|
|
RFCs.AppendLine(String.Format("{0}|{1}", contador, rfc))
|
|
Else
|
|
contador = contador + 1
|
|
RFCs.AppendLine(String.Format("{0}|{1}", contador, "..."))
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
End Using
|
|
Response.Clear()
|
|
Response.ContentType = "text/plain"
|
|
Response.AppendHeader("content-disposition", "attachment;filename=RFCs_Validacion_Masiva.txt")
|
|
|
|
'Response.Write(contador.ToString())
|
|
Response.Write(RFCs.ToString())
|
|
Response.End()
|
|
End Sub
|
|
|
|
|
|
Private Sub imprimirRepcitrusInventarioDiario(fecha As String, formato As String, Optional EnviarCorrreo As Boolean = False)
|
|
Dim totalPallets As String = ""
|
|
Dim totalBachas As String = ""
|
|
Dim dfec As DateTime = fecha.ToDateTime()
|
|
Dim fechas As String = String.Format(New System.Globalization.CultureInfo("es-MX"), "{0dd} DE {0:MMMM} DEL {0:yyyy}", dfec).ToUpper()
|
|
Dim totalcajas As String = ""
|
|
Dim TotalBins As String = ""
|
|
|
|
|
|
Dim tablaReportePallets As New DataTable
|
|
Dim tablaReporteBins As New DataTable
|
|
|
|
Using objnom As New ClsCGame
|
|
If objnom.REPInventarioDiarioPallets(dfec, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then
|
|
tablaReportePallets = objnom.DtResultados
|
|
totalPallets = tablaReportePallets.SUM("Pallets", "GroupId =1").FormatoNumero(0)
|
|
totalBachas = tablaReportePallets.SUM("Bachas", "GroupId =1").FormatoNumero(0)
|
|
totalcajas = tablaReportePallets.SUM("CajasTotal", "GroupId =1").FormatoNumero(0)
|
|
End If
|
|
If objnom.REPInventarioDiarioBins(dfec, UsuarioActual.CveEmpresa, "") And objnom.DtResultados.Rows.Count > 0 Then
|
|
tablaReporteBins = objnom.DtResultados
|
|
TotalBins = tablaReporteBins.SUM("Bins").FormatoNumero(0)
|
|
End If
|
|
'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f
|
|
End Using
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("totalPallets", totalPallets))
|
|
params.Add(New ReportParameter("totalBachas", totalBachas))
|
|
params.Add(New ReportParameter("totalcajas", totalcajas))
|
|
params.Add(New ReportParameter("TotalBins", TotalBins))
|
|
params.Add(New ReportParameter("Fecha", fechas))
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSetsPallets", .Value = tablaReportePallets}
|
|
lrds.Add(rds)
|
|
Dim rds2 As New ReportDataSource With {.Name = "DataSetBins", .Value = tablaReporteBins}
|
|
lrds.Add(rds2)
|
|
|
|
'"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
|
Dim rutardlc As String = "Formatos\RepAgroInventarioDiario.rdlc"
|
|
If EnviarCorrreo Then
|
|
Dim para As String = ""
|
|
Dim dtCorreos As DataTable = New DataTable()
|
|
|
|
Using objnom As New ClsCGame
|
|
If objnom.MailsGet(-1, -1, -1, UsuarioActual.CveEmpresa, 2) Then
|
|
dtCorreos = objnom.DtResultados
|
|
End If
|
|
End Using
|
|
Dim coma As String = ""
|
|
For Each row As DataRow In dtCorreos.Rows
|
|
para = String.Format("{0}{2}{1}", para, row("Correo"), coma)
|
|
coma = ","
|
|
Next
|
|
|
|
Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
|
|
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
|
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)})
|
|
|
|
|
|
Dim Mail As New ClsSisMail()
|
|
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, para, String.Format("Reporte de Inventario del {0}", fechas), "", "", Archivos:=LSRutasMail)
|
|
|
|
Else
|
|
ImprimirPDF(rutardlc, lrds, params, "Inventario", formato) ', Content_Disposition:="Inline")
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub imprimirManifiesto(cveEmbarqueManifiesto As Integer)
|
|
Dim NoEmbarque As String = ""
|
|
Dim Fecha As String = ""
|
|
Dim SubProyecto As String = ""
|
|
Dim AgenciaAduanalUSA As String = ""
|
|
Dim AgenciaAduanalMEX As String = ""
|
|
Dim Temperatura As String = ""
|
|
Dim Hora As String = ""
|
|
Dim Chofer As String = ""
|
|
Dim CamPlaca As String = ""
|
|
Dim Camion As String = ""
|
|
Dim Rem1Placa As String = ""
|
|
Dim Remolque1 As String = ""
|
|
Dim NoPallets As String = ""
|
|
Dim NoBultos As String = ""
|
|
Dim NoKgManifiesto As String = ""
|
|
Dim Mercado As String = ""
|
|
Dim NoFactura As String = ""
|
|
Dim Cliente As String = ""
|
|
Dim Direccion As String = ""
|
|
|
|
Dim LongitudCaja As String = ""
|
|
Dim LineaTransportacion As String = ""
|
|
Dim SCAC As String = ""
|
|
Dim CAAT As String = ""
|
|
Dim NumeroTrailer As String = ""
|
|
Dim Permiso As String = ""
|
|
|
|
|
|
Dim tablaReporte As New DataTable
|
|
|
|
'Envase = "1 1/9"
|
|
'Tamano = "Small"
|
|
'Cultivo = "Tomate"
|
|
'noPallet = "000001"
|
|
'Variedad = "Golden"
|
|
Using objnom As New ClsNominas
|
|
If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
|
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
|
NoEmbarque = row("NoEmbarque").ToString()
|
|
Cliente = row("Cliente").ToString()
|
|
Direccion = row("Direccion").ToString()
|
|
Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
|
|
SubProyecto = row("SubProyecto").ToString()
|
|
AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
|
|
AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
|
|
Temperatura = row("Temperatura").ToString()
|
|
Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
|
|
Chofer = row("Chofer").ToString()
|
|
CamPlaca = row("CamPlaca").ToString()
|
|
Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
|
|
Rem1Placa = row("Rem1Placa").ToString()
|
|
NoFactura = row("NoFactura").ToString()
|
|
Remolque1 = String.Format("{0} ", row("NumeroRemolque"), row("Rem1Anio"))
|
|
Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
|
|
|
|
NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
|
|
|
|
LongitudCaja = row("LongitudCaja").ToString()
|
|
LineaTransportacion = row("LineaTransportacion").ToString()
|
|
SCAC = row("SCAC").ToString()
|
|
CAAT = row("CAAT").ToString()
|
|
Permiso = row("Permiso").ToString()
|
|
'If row("CveCamionRemolque1").ToString() = "1" Then
|
|
' Rem1Placa = "12-TF-5E"
|
|
' Remolque1 = "Remolque 1"
|
|
'Else
|
|
' Rem1Placa = "15-TF-7f"
|
|
' Remolque1 = "Remolque 2"
|
|
|
|
'End If
|
|
|
|
If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1, True) And objnom.DtResultados.Rows.Count > 0 Then
|
|
NoPallets = objnom.DtResultados.SUM("NoPallets").ToString()
|
|
NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
|
|
NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
|
|
|
|
tablaReporte = objnom.DtResultados
|
|
|
|
End If
|
|
End If
|
|
'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f
|
|
End Using
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
|
|
params.Add(New ReportParameter("Cliente", Cliente))
|
|
params.Add(New ReportParameter("Direccion", Direccion))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto.ToUpper()))
|
|
params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
|
|
params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
|
|
params.Add(New ReportParameter("Temperatura", Temperatura))
|
|
params.Add(New ReportParameter("Hora", Hora))
|
|
params.Add(New ReportParameter("Chofer", Chofer))
|
|
params.Add(New ReportParameter("CamPlaca", CamPlaca))
|
|
params.Add(New ReportParameter("Camion", Camion))
|
|
params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
|
|
params.Add(New ReportParameter("Remolque1", Remolque1))
|
|
params.Add(New ReportParameter("Permiso", Permiso))
|
|
|
|
|
|
params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
|
|
params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
|
|
params.Add(New ReportParameter("SCAC", SCAC))
|
|
params.Add(New ReportParameter("CAAT", CAAT))
|
|
params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))
|
|
|
|
params.Add(New ReportParameter("NoFactura", NoFactura))
|
|
params.Add(New ReportParameter("Mercado", Mercado))
|
|
params.Add(New ReportParameter("NoBultos", NoBultos))
|
|
params.Add(New ReportParameter("NoPallets", NoPallets))
|
|
params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
|
|
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
|
|
lrds.Add(rds)
|
|
|
|
'"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
|
Dim rutardlc As String = "Formatos\Agro\EmbarqueManifiesto.rdlc"
|
|
If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
|
|
rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc"
|
|
End If
|
|
ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
|
|
End Sub
|
|
|
|
Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
|
|
Dim NoEmbarque As String = ""
|
|
Dim Fecha As String = ""
|
|
Dim SubProyecto As String = ""
|
|
Dim AgenciaAduanalUSA As String = ""
|
|
Dim AgenciaAduanalMEX As String = ""
|
|
Dim Temperatura As String = ""
|
|
Dim Hora As String = ""
|
|
Dim Chofer As String = ""
|
|
Dim CamPlaca As String = ""
|
|
Dim Camion As String = ""
|
|
Dim Rem1Placa As String = ""
|
|
Dim Remolque1 As String = ""
|
|
Dim NoPallets As String = ""
|
|
Dim NoBultos As String = ""
|
|
Dim NoKgManifiesto As String = ""
|
|
Dim Mercado As String = ""
|
|
Dim NoFactura As String = ""
|
|
Dim DivisoresdeCarton As String = ""
|
|
Dim BolsasdePlastico As String = ""
|
|
Dim TapaderasdeCarton As String = ""
|
|
Dim CAJASDECARTON As String = ""
|
|
Dim RPC As String = ""
|
|
Dim BINSDECARTON As String = ""
|
|
Dim TotalDlls As String = ""
|
|
Dim Cliente As String = ""
|
|
Dim Direccion As String = ""
|
|
Dim BinsPrecio As String = ""
|
|
|
|
|
|
|
|
Dim LongitudCaja As String = ""
|
|
Dim LineaTransportacion As String = ""
|
|
Dim SCAC As String = ""
|
|
Dim CAAT As String = ""
|
|
Dim NumeroTrailer As String = ""
|
|
|
|
|
|
Dim tablaReporte As New DataTable
|
|
|
|
'Envase = "1 1/9"
|
|
'Tamano = "Small"
|
|
'Cultivo = "Tomate"
|
|
'noPallet = "000001"
|
|
'Variedad = "Golden"
|
|
Using objnom As New ClsNominas
|
|
If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
|
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
|
NoEmbarque = row("NoEmbarque").ToString()
|
|
Cliente = row("Cliente").ToString()
|
|
Direccion = row("Direccion").ToString()
|
|
Fecha = String.Format("{0:dd/MM/yyyy}", row("Fecha"))
|
|
DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
|
|
BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
|
|
TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton"))
|
|
CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
|
|
RPC = String.Format("{0:N0}", row("RPC"))
|
|
BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
|
|
BinsPrecio = String.Format("{0:N0}", row("BINSDECARTON").ToString().ToDecimal() * 5)
|
|
TotalDlls = String.Format("{0:N0}", row("TotalDlls"))
|
|
|
|
|
|
|
|
SubProyecto = row("SubProyecto").ToString()
|
|
AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
|
|
AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
|
|
Temperatura = row("Temperatura").ToString()
|
|
Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
|
|
Chofer = row("Chofer").ToString()
|
|
CamPlaca = row("CamPlaca").ToString()
|
|
Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
|
|
Rem1Placa = row("Rem1Placa").ToString()
|
|
NoFactura = row("NoFactura").ToString()
|
|
Remolque1 = String.Format("{0} ", row("NumeroRemolque"))
|
|
Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
|
|
|
|
NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
|
|
|
|
LongitudCaja = row("LongitudCaja").ToString()
|
|
LineaTransportacion = row("LineaTransportacion").ToString()
|
|
SCAC = row("SCAC").ToString()
|
|
CAAT = row("CAAT").ToString()
|
|
|
|
'If row("CveCamionRemolque1").ToString() = "1" Then
|
|
' Rem1Placa = "12-TF-5E"
|
|
' Remolque1 = "Remolque 1"
|
|
'Else
|
|
' Rem1Placa = "15-TF-7f"
|
|
' Remolque1 = "Remolque 2"
|
|
|
|
'End If
|
|
|
|
If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
|
NoPallets = objnom.DtResultados.Rows.Count.ToString()
|
|
NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
|
|
NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
|
|
tablaReporte = objnom.DtResultados
|
|
End If
|
|
End If
|
|
'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f
|
|
End Using
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
|
|
params.Add(New ReportParameter("Cliente", Cliente))
|
|
params.Add(New ReportParameter("Direccion", Direccion))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
|
|
params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
|
|
params.Add(New ReportParameter("Temperatura", Temperatura))
|
|
params.Add(New ReportParameter("Hora", Hora))
|
|
params.Add(New ReportParameter("Chofer", Chofer))
|
|
params.Add(New ReportParameter("CamPlaca", CamPlaca))
|
|
params.Add(New ReportParameter("Camion", Camion))
|
|
params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
|
|
params.Add(New ReportParameter("Remolque1", Remolque1))
|
|
|
|
|
|
params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
|
|
params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
|
|
params.Add(New ReportParameter("SCAC", SCAC))
|
|
params.Add(New ReportParameter("CAAT", CAAT))
|
|
params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))
|
|
|
|
|
|
params.Add(New ReportParameter("NoFactura", NoFactura))
|
|
params.Add(New ReportParameter("Mercado", Mercado))
|
|
params.Add(New ReportParameter("NoBultos", NoBultos))
|
|
params.Add(New ReportParameter("NoPallets", NoPallets))
|
|
params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
|
|
|
|
|
|
params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton))
|
|
params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico))
|
|
params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton))
|
|
params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
|
|
params.Add(New ReportParameter("RPC", RPC))
|
|
params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
|
|
params.Add(New ReportParameter("BinsPrecio", BinsPrecio))
|
|
|
|
params.Add(New ReportParameter("TotalDlls", TotalDlls))
|
|
|
|
|
|
|
|
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
|
|
lrds.Add(rds)
|
|
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
|
'"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
|
ImprimirPDF("Formatos\Agro\EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
|
|
End Sub
|
|
|
|
Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
|
|
Dim NoEmbarque As String = ""
|
|
Dim Fecha As String = ""
|
|
Dim SubProyecto As String = ""
|
|
Dim AgenciaAduanalUSA As String = ""
|
|
Dim AgenciaAduanalMEX As String = ""
|
|
Dim Temperatura As String = ""
|
|
Dim Hora As String = ""
|
|
Dim Chofer As String = ""
|
|
Dim CamPlaca As String = ""
|
|
Dim Camion As String = ""
|
|
Dim Rem1Placa As String = ""
|
|
Dim Remolque1 As String = ""
|
|
Dim NoPallets As String = ""
|
|
Dim NoBultos As String = ""
|
|
Dim NoKgManifiesto As String = ""
|
|
Dim Mercado As String = ""
|
|
Dim NoFactura As String = ""
|
|
Dim DivisoresdeCarton As String = ""
|
|
Dim BolsasdePlastico As String = ""
|
|
Dim TapaderasdeCarton As String = ""
|
|
Dim CAJASDECARTON As String = ""
|
|
Dim RPC As String = ""
|
|
Dim BINSDECARTON As String = ""
|
|
Dim BinsPrecio As String = ""
|
|
Dim TotalDlls As String = ""
|
|
Dim Cliente As String = ""
|
|
Dim Direccion As String = ""
|
|
Dim Correo As String = ""
|
|
|
|
|
|
Dim LongitudCaja As String = ""
|
|
Dim LineaTransportacion As String = ""
|
|
Dim SCAC As String = ""
|
|
Dim CAAT As String = ""
|
|
Dim NumeroTrailer As String = ""
|
|
|
|
|
|
Dim tablaReporte As New DataTable
|
|
|
|
'Envase = "1 1/9"
|
|
'Tamano = "Small"
|
|
'Cultivo = "Tomate"
|
|
'noPallet = "000001"
|
|
'Variedad = "Golden"
|
|
Using objnom As New ClsNominas
|
|
If objnom.EmbarqueManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
|
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
|
NoEmbarque = row("NoEmbarque").ToString()
|
|
Cliente = row("Cliente").ToString()
|
|
Direccion = row("Direccion").ToString()
|
|
Correo = row("Correo").ToString()
|
|
Fecha = String.Format("{0dd/MM/yyyy}", row("Fecha"))
|
|
DivisoresdeCarton = String.Format("{0:N0}", row("DivisoresdeCarton"))
|
|
BolsasdePlastico = String.Format("{0:N0}", row("BolsasdePlastico"))
|
|
TapaderasdeCarton = String.Format("{0:N0}", row("TapaderasdeCarton"))
|
|
CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
|
|
RPC = String.Format("{0:N0}", row("RPC"))
|
|
BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
|
|
TotalDlls = String.Format("{0:N0}", row("TotalDlls"))
|
|
|
|
|
|
|
|
SubProyecto = row("SubProyecto").ToString()
|
|
AgenciaAduanalUSA = row("AgenciaAduanalUSA").ToString()
|
|
AgenciaAduanalMEX = row("AgenciaAduanalMEX").ToString()
|
|
Temperatura = row("Temperatura").ToString()
|
|
Hora = String.Format("{0hh }:{0:mm }:{0:ss tt}:", row("FechaIng"))
|
|
Chofer = row("Chofer").ToString()
|
|
CamPlaca = row("CamPlaca").ToString()
|
|
Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
|
|
Rem1Placa = row("Rem1Placa").ToString()
|
|
NoFactura = row("NoFactura").ToString()
|
|
Remolque1 = String.Format("{0} ", row("NumeroRemolque"))
|
|
Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
|
|
|
|
NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
|
|
|
|
LongitudCaja = row("LongitudCaja").ToString()
|
|
LineaTransportacion = row("LineaTransportacion").ToString()
|
|
SCAC = row("SCAC").ToString()
|
|
CAAT = row("CAAT").ToString()
|
|
|
|
'If row("CveCamionRemolque1").ToString() = "1" Then
|
|
' Rem1Placa = "12-TF-5E"
|
|
' Remolque1 = "Remolque 1"
|
|
'Else
|
|
' Rem1Placa = "15-TF-7f"
|
|
' Remolque1 = "Remolque 2"
|
|
|
|
'End If
|
|
|
|
If objnom.EmbarquePalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
|
NoPallets = objnom.DtResultados.Rows.Count.ToString()
|
|
NoKgManifiesto = objnom.DtResultados.SUM("Peso").ToString("N2")
|
|
NoBultos = objnom.DtResultados.SUM("NoCajas").ToString("N0")
|
|
tablaReporte = objnom.DtResultados
|
|
End If
|
|
End If
|
|
'Remolque 1 12-TF-5E' }, { cveCamion: 2, placa: 'Remolque 2 15-TF-7f
|
|
End Using
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NoEmbarque", NoEmbarque))
|
|
params.Add(New ReportParameter("Cliente", Cliente))
|
|
params.Add(New ReportParameter("Direccion", Direccion))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("AgenciaAduanalUSA", AgenciaAduanalUSA))
|
|
params.Add(New ReportParameter("AgenciaAduanalMEX", AgenciaAduanalMEX))
|
|
params.Add(New ReportParameter("Temperatura", Temperatura))
|
|
params.Add(New ReportParameter("Hora", Hora))
|
|
params.Add(New ReportParameter("Chofer", Chofer))
|
|
params.Add(New ReportParameter("CamPlaca", CamPlaca))
|
|
params.Add(New ReportParameter("Camion", Camion))
|
|
params.Add(New ReportParameter("Rem1Placa", Rem1Placa))
|
|
params.Add(New ReportParameter("Remolque1", Remolque1))
|
|
|
|
|
|
params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
|
|
params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
|
|
params.Add(New ReportParameter("SCAC", SCAC))
|
|
params.Add(New ReportParameter("CAAT", CAAT))
|
|
params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer))
|
|
|
|
|
|
params.Add(New ReportParameter("NoFactura", NoFactura))
|
|
params.Add(New ReportParameter("Mercado", Mercado))
|
|
params.Add(New ReportParameter("NoBultos", NoBultos))
|
|
params.Add(New ReportParameter("NoPallets", NoPallets))
|
|
params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
|
|
|
|
|
|
'params.Add(New ReportParameter("DivisoresdeCarton", DivisoresdeCarton))
|
|
'params.Add(New ReportParameter("BolsasdePlastico", BolsasdePlastico))
|
|
'params.Add(New ReportParameter("TapaderasdeCarton", TapaderasdeCarton))
|
|
'params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
|
|
'params.Add(New ReportParameter("RPC", RPC))
|
|
'params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
|
|
'params.Add(New ReportParameter("TotalDlls", TotalDlls))
|
|
|
|
|
|
|
|
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
|
|
lrds.Add(rds)
|
|
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
|
'"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
|
Dim pdf As Byte() = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
|
|
|
|
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
|
LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
|
|
|
|
Dim ObjMail As New ClsSisMail()
|
|
|
|
If ObjMail.SendMail(UsuarioActual.Empresa, Correo, "Datos carta porte", "", "", LSRutasMail) Then
|
|
'ResultadoMail = 1
|
|
Else
|
|
'GuardaLogFacturacion($"No se envio el correo {Mail}, {Asunto}, {Cuerpo}, {MailCC},")
|
|
'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
|
|
'ResultadoMail = 3
|
|
End If
|
|
ImprimirPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub imprimirpallet2(cvePallet As Integer)
|
|
Dim Envase As String = ""
|
|
Dim Tamano As String = ""
|
|
Dim Cultivo As String = ""
|
|
Dim noPallet As String = ""
|
|
Dim Variedad As String = ""
|
|
Dim NoCajas As String = ""
|
|
|
|
'Envase = "1 1/9"
|
|
'Tamano = "Small"
|
|
'Cultivo = "Tomate"
|
|
'noPallet = "000001"
|
|
'Variedad = "Golden"
|
|
Using objnom As New ClsNominas
|
|
If objnom.EmbarquePalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
|
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
|
Envase = row("Envase").ToString()
|
|
Tamano = row("Tamaño").ToString()
|
|
Cultivo = row("Cultivo").ToString()
|
|
noPallet = row("Codigo").ToString()
|
|
Variedad = row("CultivoVariedad").ToString()
|
|
NoCajas = String.Format("{0:N0}", row("NoCajas"))
|
|
|
|
End If
|
|
|
|
End Using
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Envase", Envase))
|
|
params.Add(New ReportParameter("Tamano", Tamano))
|
|
params.Add(New ReportParameter("Cultivo", Cultivo))
|
|
params.Add(New ReportParameter("noPallet", noPallet))
|
|
params.Add(New ReportParameter("Variedad", Variedad))
|
|
params.Add(New ReportParameter("NoCajas", NoCajas))
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
|
|
'img
|
|
Dim dtqr As New DataTable
|
|
Dim column As DataColumn = New DataColumn("ImagenByte")
|
|
column.DataType = System.Type.[GetType]("System.Byte[]")
|
|
column.AllowDBNull = True
|
|
column.Caption = "ImagenByte"
|
|
dtqr.Columns.Add(column)
|
|
Dim rowqr As DataRow = dtqr.NewRow()
|
|
|
|
|
|
Dim bcode As New BarcodeLib.Barcode()
|
|
Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
|
|
Dim barcodebyte As Byte()
|
|
Using ms As New MemoryStream()
|
|
img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
|
|
barcodebyte = ms.ToArray()
|
|
End Using
|
|
rowqr("ImagenByte") = barcodebyte
|
|
|
|
dtqr.Rows.Add(rowqr)
|
|
Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
|
|
rds2.Name = "dsImagenes"
|
|
rds2.Value = dtqr
|
|
lrds.Add(rds2)
|
|
'endimg
|
|
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
|
'"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
|
ImprimirPDF("Formatos\Agro\PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
|
|
End Sub
|
|
|
|
|
|
Private Sub imprimirpalletWalmart(cvePallet As Integer)
|
|
Dim Envase As String = ""
|
|
Dim Tamano As String = ""
|
|
Dim Cultivo As String = ""
|
|
Dim Cultivoingles As String = ""
|
|
Dim noPallet As String = ""
|
|
Dim FormatoImpresion As String = ""
|
|
Dim Consecutivo As String = ""
|
|
Dim Fecha As String = ""
|
|
Dim NoCajas As String = ""
|
|
Dim NumberOfCode As String = ""
|
|
Dim CvetypeImpresion As Integer
|
|
Dim NumberSmall As String = ""
|
|
Dim NumberBig As String = ""
|
|
Dim GTINAll As String = ""
|
|
Dim Peso As String = ""
|
|
Dim GTIN As String = ""
|
|
Dim PLU As String = ""
|
|
'Envase = "1 1/9"
|
|
'Tamano = "Small"
|
|
'Cultivo = "Tomate"
|
|
'noPallet = "000001"
|
|
Using objnom As New ClsNominas
|
|
If objnom.EmbarquePalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
|
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
|
Envase = row("Envase").ToString()
|
|
Tamano = row("Tamaño").ToString()
|
|
Cultivo = row("Cultivo").ToString()
|
|
Cultivoingles = row("Cultivoingles").ToString()
|
|
noPallet = row("Codigo").ToString()
|
|
FormatoImpresion = row("FormatoImpresion").ToString()
|
|
Consecutivo = row("Consecutivo").ToString()
|
|
NoCajas = row("NoCajas").ToString()
|
|
Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
|
|
CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
|
|
NumberOfCode = String.Format("(00)00000000000000(00){1:ddMMyy}(00){0}00", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
|
|
'NumberSmall = String.Format("{000}", noPallet.ToEntero())
|
|
'NumberBig = String.Format("{000}", row("Consecutivo").ToString().ToEntero()) ' String.Format("{0:dd}", row("Fecha"))
|
|
|
|
|
|
NumberSmall = row("NumberSmall").ToString()
|
|
NumberBig = row("NumberBig").ToString()
|
|
GTINAll = row("GTINAll").ToString()
|
|
Peso = row("PesoText").ToString()
|
|
GTIN = row("GTIN").ToString()
|
|
PLU = row("PLU").ToString()
|
|
|
|
End If
|
|
End Using
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("Tamano", Tamano))
|
|
params.Add(New ReportParameter("noPallet", noPallet))
|
|
params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
|
|
params.Add(New ReportParameter("Consecutivo", Consecutivo))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("CveFormato", If(Cultivo.ToLower().Contains("tomate"), "3", CvetypeImpresion.ToString())))
|
|
params.Add(New ReportParameter("NoCajas", NoCajas))
|
|
params.Add(New ReportParameter("NumberOfCode", NumberOfCode))
|
|
params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
|
|
params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
|
|
params.Add(New ReportParameter("NumberSmall", NumberSmall))
|
|
params.Add(New ReportParameter("NumberBig", NumberBig))
|
|
params.Add(New ReportParameter("GTINAll", GTINAll))
|
|
params.Add(New ReportParameter("Peso", Peso))
|
|
params.Add(New ReportParameter("GTIN", GTIN))
|
|
params.Add(New ReportParameter("PLU", PLU))
|
|
|
|
|
|
|
|
Dim tablaReporte As New DataTable
|
|
tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
|
|
tablaReporte.Rows.Add(tablaReporte.NewRow)
|
|
tablaReporte.Rows.Add(tablaReporte.NewRow)
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
|
|
'img
|
|
Dim dtqr As New DataTable
|
|
Dim column As DataColumn = New DataColumn("ImagenByte")
|
|
column.DataType = System.Type.[GetType]("System.Byte[]")
|
|
column.AllowDBNull = True
|
|
column.Caption = "ImagenByte"
|
|
dtqr.Columns.Add(column)
|
|
Dim rowqr As DataRow = dtqr.NewRow()
|
|
|
|
|
|
Dim bcode As New BarcodeLib.Barcode()
|
|
Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200)
|
|
Dim barcodebyte As Byte()
|
|
Using ms As New MemoryStream()
|
|
img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
|
|
barcodebyte = ms.ToArray()
|
|
End Using
|
|
rowqr("ImagenByte") = barcodebyte
|
|
|
|
dtqr.Rows.Add(rowqr)
|
|
Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
|
|
rds2.Name = "dsImagenes"
|
|
rds2.Value = dtqr
|
|
lrds.Add(rds2)
|
|
'endimg
|
|
Dim dtqr2 As DataTable = dtqr.Clone()
|
|
|
|
Dim bcode2 As New BarcodeLib.Barcode()
|
|
Dim img2 As Drawing.Image = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100)
|
|
Dim barcodebyte2 As Byte()
|
|
Using ms As New MemoryStream()
|
|
img2.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
|
|
barcodebyte2 = ms.ToArray()
|
|
End Using
|
|
Dim rowqr2 As DataRow = dtqr2.NewRow()
|
|
rowqr2("ImagenByte") = barcodebyte2
|
|
dtqr2.Rows.Add(rowqr2)
|
|
Dim rds22 As New ReportDataSource With {.Name = "dsImagenesGTIN", .Value = dtqr2}
|
|
lrds.Add(rds22)
|
|
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
|
|
lrds.Add(rds)
|
|
|
|
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
|
'"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
|
Dim ruta As String = "Formatos\Agro\PalletEtiquetaWalmart.rdlc"
|
|
'If CvetypeImpresion = 2 Then
|
|
' ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
|
|
'End If
|
|
ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
|
|
End Sub
|
|
|
|
Private Sub imprimirpallet(cvePallet As Integer)
|
|
Dim Envase As String = ""
|
|
Dim Tamano As String = ""
|
|
Dim Cultivo As String = ""
|
|
Dim Cultivoingles As String = ""
|
|
Dim noPallet As String = ""
|
|
Dim FormatoImpresion As String = ""
|
|
Dim Consecutivo As String = ""
|
|
Dim Fecha As String = ""
|
|
Dim NoCajas As String = ""
|
|
Dim NumberOfCode As String = ""
|
|
Dim CvetypeImpresion As Integer
|
|
Dim NumberSmall As String = ""
|
|
Dim NumberBig As String = ""
|
|
'Envase = "1 1/9"
|
|
'Tamano = "Small"
|
|
'Cultivo = "Tomate"
|
|
'noPallet = "000001"
|
|
Using objnom As New ClsNominas
|
|
If objnom.EmbarquePalletGet(cvePallet, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1) And objnom.DtResultados.Rows.Count > 0 Then
|
|
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
|
Envase = row("Envase").ToString()
|
|
Tamano = row("Tamaño").ToString()
|
|
Cultivo = row("Cultivo").ToString()
|
|
Cultivoingles = row("Cultivoingles").ToString()
|
|
noPallet = row("Codigo").ToString()
|
|
FormatoImpresion = row("FormatoImpresion").ToString()
|
|
Consecutivo = row("Consecutivo").ToString()
|
|
NoCajas = row("NoCajas").ToString()
|
|
Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
|
|
CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
|
|
NumberOfCode = String.Format("(00)00000000000000(00){1:ddMMyy}(00){0}00", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
|
|
NumberSmall = String.Format("{000}", noPallet.ToEntero())
|
|
NumberBig = String.Format("{000}", row("Consecutivo").ToString().ToEntero()) ' String.Format("{0:dd}", row("Fecha"))
|
|
End If
|
|
End Using
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("Tamano", Tamano))
|
|
params.Add(New ReportParameter("noPallet", noPallet))
|
|
params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
|
|
params.Add(New ReportParameter("Consecutivo", Consecutivo))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("CveFormato", If(Cultivo.ToLower().Contains("tomate"), "3", CvetypeImpresion.ToString())))
|
|
params.Add(New ReportParameter("NoCajas", NoCajas))
|
|
params.Add(New ReportParameter("NumberOfCode", NumberOfCode))
|
|
params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
|
|
params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
|
|
params.Add(New ReportParameter("NumberSmall", NumberSmall))
|
|
params.Add(New ReportParameter("NumberBig", NumberBig))
|
|
|
|
|
|
|
|
Dim tablaReporte As New DataTable
|
|
tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
|
|
tablaReporte.Rows.Add(tablaReporte.NewRow)
|
|
tablaReporte.Rows.Add(tablaReporte.NewRow)
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
|
|
'img
|
|
Dim dtqr As New DataTable
|
|
Dim column As DataColumn = New DataColumn("ImagenByte")
|
|
column.DataType = System.Type.[GetType]("System.Byte[]")
|
|
column.AllowDBNull = True
|
|
column.Caption = "ImagenByte"
|
|
dtqr.Columns.Add(column)
|
|
Dim rowqr As DataRow = dtqr.NewRow()
|
|
|
|
|
|
Dim bcode As New BarcodeLib.Barcode()
|
|
Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
|
|
Dim barcodebyte As Byte()
|
|
Using ms As New MemoryStream()
|
|
img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
|
|
barcodebyte = ms.ToArray()
|
|
End Using
|
|
rowqr("ImagenByte") = barcodebyte
|
|
|
|
dtqr.Rows.Add(rowqr)
|
|
Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
|
|
rds2.Name = "dsImagenes"
|
|
rds2.Value = dtqr
|
|
lrds.Add(rds2)
|
|
'endimg
|
|
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
|
|
lrds.Add(rds)
|
|
|
|
'"Empresas/Grales/Formatos/EquiposGPS.rdlc"
|
|
'"D\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
|
|
Dim ruta As String = "Formatos\Agro\PalletEtiquetaCaja.rdlc"
|
|
'If CvetypeImpresion = 2 Then
|
|
' ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
|
|
'End If
|
|
ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
|
|
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 As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
|
|
Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
|
|
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=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
|
|
|
|
If UrlParametros("OP").ToString = "File" Then
|
|
|
|
DescargaArchivoDirecto(UrlParametros("FILE").ToString)
|
|
|
|
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
|
|
|
|
'Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1
|
|
|
|
Dim EsTransitorio As Boolean = If(UrlParametros("ESTRANSITORIO") Is Nothing, False, Boolean.Parse((UrlParametros("ESTRANSITORIO").ToString)))
|
|
Dim CveAlmacenRecepcion As Integer = If(UrlParametros("CVEALMACENRECEPCION") Is Nothing, -1, (UrlParametros("CVEALMACENRECEPCION").ToString.ToEntero))
|
|
Dim CveAlmacenTransitorioRecepcion As Integer = If(UrlParametros("CVEALMACENTRANSITORIORECEPCION") Is Nothing, -1, (UrlParametros("CVEALMACENTRANSITORIORECEPCION").ToString.ToEntero))
|
|
Dim FolioBusquedaTrasitorio As Integer = If(UrlParametros("FOLIOBUSQUEDATRASITORIO") Is Nothing, -1, (UrlParametros("FOLIOBUSQUEDATRASITORIO").ToString.ToEntero))
|
|
|
|
Dim Consola As String = If(UrlParametros("CONSOLA") IsNot Nothing, UrlParametros("CONSOLA").ToString.Trim, "")
|
|
|
|
CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, Resumen:=False, EsTransitorio:=EsTransitorio, CveAlmacenRecepcion:=CveAlmacenRecepcion, CveAlmacenTransitorioRecepcion:=CveAlmacenTransitorioRecepcion,
|
|
FolioBusquedaTrasitorio:=FolioBusquedaTrasitorio, Consola:=Consola)
|
|
|
|
End If
|
|
End If
|
|
|
|
If UrlParametros("OP").ToString = "Almr" Then
|
|
If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
|
|
CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, Resumen:=True)
|
|
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
|
|
|
|
If UrlParametros("OP").ToString = "Etiqueta2" Then
|
|
If UrlParametros("CVEPS") IsNot Nothing AndAlso UrlParametros("CVEPS").ToString.ToEntero > 0 Then
|
|
ImprimirEtiqueta2(UrlParametros("CVEPS").ToString.ToEntero, UrlParametros("PS").ToString, UrlParametros("CVEALMACEN").ToString, 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 ACUSE
|
|
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 ETIQUETA
|
|
If UrlParametros("OP").ToString = "ETIQUETA" Then
|
|
If UrlParametros("PRODUCTOS") IsNot Nothing AndAlso UrlParametros("CVEPRECIOLISTA").ToString.ToEntero > 0 Then
|
|
ImprimeEtiqueta(UrlParametros("PRODUCTOS").ToString, UrlParametros("CVEPRECIOLISTA").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 AplicaPagare As String = If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0")
|
|
Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1"
|
|
Dim RegenerarPDF As Boolean = UrlParametros("REGENERAR") IsNot Nothing AndAlso UrlParametros("REGENERAR").ToString() = "1"
|
|
Dim STIMUL As Boolean = UrlParametros("STIMULSOFT") IsNot Nothing AndAlso UrlParametros("STIMULSOFT").ToString() = "1"
|
|
Dim EsTicket As Boolean = UrlParametros("TICKET") IsNot Nothing AndAlso UrlParametros("TICKET").ToString() = "1"
|
|
|
|
GenerarPDFVenta(UrlParametros("CVEVENTA").ToString.ToEntero, AplicaPagare, GuardarPDF:=Guardar, RegenerarPDF:=RegenerarPDF, UsarStimul:=STIMUL, EsTicket:=EsTicket)
|
|
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, -1)
|
|
End If
|
|
|
|
|
|
If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
|
|
ImprimeFormatoCartaPorte(-1, UrlParametros("CVETIMBRE").ToString.ToEntero)
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
|
|
If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
|
|
ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
If UrlParametros("OP").ToString = "CORT" Then
|
|
If UrlParametros("CVECORTE") IsNot Nothing AndAlso UrlParametros("CVECORTE").ToString.ToEntero > 0 Then
|
|
Dim CveSubProyecto As Integer = -1
|
|
If UrlParametros("CVESUBPROYECTO") IsNot Nothing Then
|
|
CveSubProyecto = UrlParametros("CVESUBPROYECTO").ToString.ToEntero
|
|
End If
|
|
ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString, CveSubProyecto)
|
|
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
|
|
Dim TipoPago As String = ""
|
|
If UrlParametros("TIPOPAGO") IsNot Nothing Then
|
|
TipoPago = UrlParametros("TIPOPAGO").ToString()
|
|
End If
|
|
CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString, TipoPago)
|
|
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 Not Archivo.Exists Then
|
|
If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
|
|
If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
|
|
Dim CveIE As Integer = -1
|
|
If UrlParametros("CVEIE") IsNot Nothing Then
|
|
CveIE = UrlParametros("CVEIE").ToString.ToEntero
|
|
End If
|
|
PDFReciboDePagos(-1, CveIE, UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero, False) 'genero el documento de no existir
|
|
End If
|
|
End If
|
|
|
|
Archivo = Nothing
|
|
End If
|
|
|
|
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
|
|
|
|
'PDF AJUSTE
|
|
If UrlParametros("OP").ToString = "AJUSTE" Then
|
|
'SI YA ESTA GUARDADO
|
|
If UrlParametros("CVEGARANTIADETALLE") IsNot Nothing Then
|
|
ImprimirPDFAjuste(UrlParametros("CVEGARANTIADETALLE").ToString.ToEntero)
|
|
Else
|
|
ImprimirPDFAjuste(CvePSAjuste:=UrlParametros("CVEPSAJUSTE").ToString.ToEntero(), CveCliente:=UrlParametros("CVECLIENTE").ToString.ToEntero(),
|
|
CveClienteDistribuidor:=UrlParametros("CVECLIENTEDISTRIBUIDOR").ToString.ToEntero(), Consec:=UrlParametros("CONSEC").ToString,
|
|
FolioGarantia:=UrlParametros("FOLIOGARANTIA").ToString, FechaAjuste:=UrlParametros("FECHAAJUSTE").ToString.ToDateTime(), FechaReclamacion:=UrlParametros("FECHARECLAMACION").ToString.ToDateTime(),
|
|
TipoDefecto:=UrlParametros("TIPODEFECTO").ToString, CveTipoUso:=UrlParametros("CVETIPOUSO").ToString.ToEntero(), CodigoEnsamble:=UrlParametros("CODIGOENSAMBLE").ToString,
|
|
CodigoLinea:=UrlParametros("CODIGOLINEA").ToString, CodigoInspeccion:=UrlParametros("CODIGOINSPECCION").ToString, PorcentajeAjuste:=UrlParametros("PORCENTAJEAJUSTE").ToString,
|
|
BCIAjuste:=UrlParametros("BCIAJUSTE").ToString, Etiqueta:=UrlParametros("ETIQUETA").ToString, Año:=UrlParametros("AÑO").ToString, Comprobante:=UrlParametros("COMPROBANTE").ToString,
|
|
ModeloAuto:=UrlParametros("MODELOAUTO").ToString, MarcaAuto:=UrlParametros("MARCAAUTO").ToString, CodigoTD:=UrlParametros("CODIGOTD").ToString)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME ENTREGAS POR REALIZAR
|
|
If UrlParametros("OP").ToString = "FILE" Then
|
|
If UrlParametros("CVEASIGNACIONENTREGA") IsNot Nothing And UrlParametros("USUARIOENTREGA") IsNot Nothing Then
|
|
ImprimeEntregasPorRealizar(UrlParametros("CVEASIGNACIONENTREGA").ToString.ToLong, UrlParametros("USUARIOENTREGA").ToString)
|
|
End If
|
|
End If
|
|
|
|
|
|
'IMPRIME POLIZA
|
|
If UrlParametros("OP").ToString = "PREPO" Then
|
|
If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then
|
|
ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero)
|
|
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, Optional CveSubProyecto As Integer = -1)
|
|
Dim DtCortesVentasResumen As DataTable = Nothing
|
|
Dim DtCortesVentas As DataTable = Nothing
|
|
Dim DtReporteCorte As DataTable = Nothing
|
|
Dim DtIngresosRetiros As DataTable = Nothing
|
|
Dim DtDepositos As DataTable = Nothing
|
|
|
|
Dim Fecha As String = "", Nombre As String = ""
|
|
Dim OpcionDetallado As Integer = 1
|
|
If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then OpcionDetallado = 2
|
|
|
|
Dim ObjVenta As New ClsVentas
|
|
Dim ObjPuntoVenta As New ClsPuntoVenta
|
|
|
|
If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
|
|
DtCortesVentasResumen = ObjVenta.DtResultados.Copy()
|
|
End If
|
|
|
|
If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa, OpcionDetallado) Then
|
|
DtCortesVentas = ObjPuntoVenta.DtResultados.Copy()
|
|
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
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
|
|
If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then
|
|
DtReporteCorte = ObjPuntoVenta.DtResultados.FiltraParametros("CveCorte > 0")
|
|
End If
|
|
|
|
If ObjPuntoVenta.GetVta_MovimientosCajas(CveCorte, -1) Then
|
|
DtIngresosRetiros = ObjPuntoVenta.DtResultados.Copy()
|
|
End If
|
|
|
|
If Not UsuarioActual.CveEmpresa.Contiene(140, 141) AndAlso ObjVenta.GetCortesDetalleDepositosCaja(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
|
|
DtDepositos = ObjVenta.DtResultados.Copy()
|
|
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 lrds As New List(Of ReportDataSource)
|
|
|
|
Dim DtMetodosPago = DtCortesVentasResumen.Copy()
|
|
|
|
'MOVER EL VENTAS CREDITO DE LA DERECHA A LA IZQUIERDA EN EL PDF
|
|
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
|
|
DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
|
|
End If
|
|
Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"
|
|
If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
|
|
DirFormato = UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc"
|
|
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", ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")))
|
|
params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
|
|
If DtReporteCorte IsNot Nothing Then
|
|
Dim DtTT = GenerateTransposedTable(DtReporteCorte)
|
|
Dim DtDatosVentas As New DataTable()
|
|
DtDatosVentas.Columns.Add(New DataColumn("Orden", GetType(Integer)))
|
|
DtDatosVentas.Columns.Add(New DataColumn("Columna", GetType(String)))
|
|
DtDatosVentas.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
|
|
|
|
Dim DtDatosCajas As DataTable = DtDatosVentas.Copy()
|
|
|
|
For Each row As DataRow In DtTT.Rows
|
|
Dim Total = row(1).ToString()
|
|
If IsNumeric(Total) OrElse row(0).ToString().Contiene("TotalRetiros", "TotalIngresos") Then
|
|
Dim TipoTabla As Integer = 0
|
|
|
|
Dim Orden As Integer = 0
|
|
Dim rowData = DtDatosVentas.NewRow()
|
|
Select Case row(0).ToString()
|
|
Case "VentasCorte"
|
|
rowData("Columna") = "Total Ventas"
|
|
Orden = 1
|
|
TipoTabla = 1
|
|
Case "NotasCredito"
|
|
rowData("Columna") = "N.C."
|
|
Orden = 2
|
|
TipoTabla = 1
|
|
Case "VentasCredito"
|
|
rowData("Columna") = "Ventas Crédito"
|
|
Orden = 3
|
|
TipoTabla = 1
|
|
Case "VentasContado"
|
|
rowData("Columna") = "Ventas Contado"
|
|
Orden = 4
|
|
TipoTabla = 1
|
|
|
|
Case "VentaTotalIngreso"
|
|
rowData("Columna") = "Ventas Ingreso"
|
|
Orden = 5
|
|
TipoTabla = 1
|
|
Case "VentaTotalRemision"
|
|
If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
|
|
rowData("Columna") = "Ventas Remisiones"
|
|
Orden = 6
|
|
TipoTabla = 1
|
|
Else
|
|
Orden = 0
|
|
End If
|
|
Case "TotalEfectivo"
|
|
rowData("Columna") = "Total Efectivo"
|
|
Orden = 7
|
|
TipoTabla = 1
|
|
Case "TotalCheque"
|
|
rowData("Columna") = "Total Cheque"
|
|
Orden = 8
|
|
TipoTabla = 1
|
|
Case "TarjDebito"
|
|
rowData("Columna") = "Tarj. Débito"
|
|
Orden = 9
|
|
TipoTabla = 1
|
|
Case "TarjCredito"
|
|
rowData("Columna") = "Tarj. Crédito"
|
|
Orden = 10
|
|
TipoTabla = 1
|
|
Case "VentasTransferencia"
|
|
rowData("Columna") = "Total Transf."
|
|
Orden = 11
|
|
TipoTabla = 1
|
|
Case "TotalDevRNC"
|
|
rowData("Columna") = "Total DEV-RNC."
|
|
Orden = 12
|
|
TipoTabla = 1
|
|
'Case "SaldoAnteriorAplicado"
|
|
' rowData("Columna") = "Saldo Aplicado"
|
|
' Orden = 0
|
|
' TipoTabla = 0
|
|
Case "ImporteInicial"
|
|
rowData("Columna") = "Importe Inicial"
|
|
Orden = 1
|
|
TipoTabla = 2
|
|
Case "TotalRetiros"
|
|
rowData("Columna") = "Total Retiro"
|
|
Orden = 2
|
|
TipoTabla = 2
|
|
Case "TotalIngresos"
|
|
rowData("Columna") = "Total Ingreso"
|
|
Orden = 3
|
|
TipoTabla = 2
|
|
Case "Devoluciones"
|
|
rowData("Columna") = "Devoluciones"
|
|
Orden = 4
|
|
TipoTabla = 2
|
|
Case "TotalCaja"
|
|
rowData("Columna") = "Total Caja"
|
|
Orden = 5
|
|
TipoTabla = 2
|
|
Case Else
|
|
rowData("Columna") = row(0).ToString()
|
|
Orden = 0
|
|
End Select
|
|
|
|
rowData("Importe") = Total.ToDecimal()
|
|
rowData("Orden") = Orden
|
|
|
|
If TipoTabla = 1 Then
|
|
DtDatosVentas.Rows.Add(rowData.ItemArray)
|
|
ElseIf TipoTabla = 2 Then
|
|
DtDatosCajas.Rows.Add(rowData.ItemArray)
|
|
End If
|
|
|
|
'If row(0).ToString() = "SaldoAnteriorAplicado" Then
|
|
' Dim RowMP As DataRow = DtMetodosPago.NewRow
|
|
' RowMP("MetodoPago") = "Saldo Aplicado"
|
|
' RowMP("Importe") = Total.ToDecimal()
|
|
|
|
' DtMetodosPago.Rows.Add(RowMP)
|
|
'End If
|
|
|
|
End If
|
|
Next
|
|
|
|
'Dim TotalCredito As Decimal = DtCortesVentasResumen.SUMD("Importe", "MetodoPago = 'Crédito'")
|
|
|
|
'Dim rowCredito = DtDatosVentas.NewRow()
|
|
'rowCredito("Columna") = "Crédito"
|
|
'rowCredito("Importe") = TotalCredito
|
|
'rowCredito("Orden") = 4
|
|
'DtDatosVentas.Rows.Add(rowCredito)
|
|
|
|
Dim rds3 As New ReportDataSource With {.Name = "DataSet3", .Value = DtDatosVentas.FiltraParametros("Orden > 0", "Orden")}
|
|
lrds.Add(rds3)
|
|
|
|
Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = DtDatosCajas.FiltraParametros("Orden > 0", "Orden")}
|
|
lrds.Add(rds4)
|
|
|
|
Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = DtIngresosRetiros}
|
|
lrds.Add(rds5)
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(197, 193) Then
|
|
Dim CveCuenta As Integer = -1
|
|
If UsuarioActual.CveEmpresa = 193 Then
|
|
CveCuenta = 186367
|
|
Else
|
|
CveCuenta = 0
|
|
|
|
If CveSubProyecto = 12756 Then 'nav
|
|
CveCuenta = 188796
|
|
End If
|
|
|
|
If CveSubProyecto = 12755 Then 'hillo
|
|
CveCuenta = 188795
|
|
End If
|
|
End If
|
|
|
|
If CveCuenta >= 0 Then
|
|
Using ObjConta As New ClsContabilidad
|
|
If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
|
|
Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
|
|
lrds.Add(rdsConta)
|
|
End If
|
|
End Using
|
|
End If
|
|
|
|
If DtDepositos IsNot Nothing Then
|
|
Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
|
|
lrds.Add(rdsDepositos)
|
|
End If
|
|
|
|
End If
|
|
|
|
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
|
|
'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
|
|
'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
|
|
'params.Add(New ReportParameter("VentasCredito", RowCorte("VentasCorte").ToString()))
|
|
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
|
|
'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
|
|
End If
|
|
End If
|
|
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
|
|
lrds.Add(rds)
|
|
Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
|
|
lrds.Add(rds2)
|
|
|
|
|
|
ImprimirPDF(DirFormato, lrds, params, "ReporteCortes", Formato)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Function GenerateTransposedTable(ByVal inputTable As DataTable) As DataTable
|
|
Dim outputTable As DataTable = New DataTable()
|
|
outputTable.Columns.Add(inputTable.Columns(0).ColumnName.ToString())
|
|
|
|
For Each inRow As DataRow In inputTable.Rows
|
|
Dim newColName As String = inRow(0).ToString()
|
|
outputTable.Columns.Add(newColName)
|
|
Next
|
|
|
|
For rCount As Integer = 1 To inputTable.Columns.Count - 1
|
|
Dim newRow As DataRow = outputTable.NewRow()
|
|
newRow(0) = inputTable.Columns(rCount).ColumnName.ToString()
|
|
|
|
For cCount As Integer = 0 To inputTable.Rows.Count - 1
|
|
Dim colValue As String = inputTable.Rows(cCount)(rCount).ToString()
|
|
newRow(cCount + 1) = colValue
|
|
Next
|
|
|
|
outputTable.Rows.Add(newRow)
|
|
Next
|
|
|
|
Return outputTable
|
|
End Function
|
|
|
|
#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 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", NowADS().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, UsuarioActual.CveEmpresa) 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()}"))
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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, False) 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", NowADS().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}", NowADS().ToDateTime.ToShortDateString))
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
|
|
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer, Optional CveTimbre As Integer = -1)
|
|
If CveMovimiento > 0 Or CveTimbre > 0 Then
|
|
|
|
|
|
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()
|
|
|
|
Dim Dt As DataTable = Nothing
|
|
|
|
Dim FormatoRDLC As String = ""
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If CveMovimiento > 0 Then
|
|
|
|
FormatoRDLC = "CartaPorte.rdlc"
|
|
|
|
Dim ObjInv As New ClsInventarios
|
|
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
|
|
|
|
|
|
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
|
|
|
|
|
|
Chofer = Dr("Chofer").ToString
|
|
Placa = Dr("Placa").ToString
|
|
EspecifUnidad = Dr("Especificacion").ToString
|
|
|
|
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
|
Dt = ObjInv.DtResultados
|
|
End If
|
|
ObjInv.Dispose()
|
|
|
|
|
|
ElseIf CveTimbre > 0 Then
|
|
|
|
FormatoRDLC = "RecoleccionTimbrado.rdlc"
|
|
|
|
Dim ObjGral As New ClsGenerales
|
|
|
|
|
|
If ObjGral.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
|
|
|
|
Dim Dr As DataRow = ObjGral.DtResultados.Rows(0)
|
|
|
|
Dim TipoDocto As String = Dr("TipoDocto").ToString
|
|
|
|
SerieFolio = Dr("SerieFolio").ToString
|
|
DomicilioSucursal = $"{Dr("DirOriCalle").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
|
|
LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
|
|
Origen = Dr("SPOrigen").ToString
|
|
Destino = Dr("SPDestino").ToString
|
|
Observaciones = ""
|
|
CveChofer = Dr("CveChofer").ToString
|
|
Chofer = Dr("FiguraChofer").ToString
|
|
|
|
|
|
Placa = Dr("Placa").ToString
|
|
Recibio = ""
|
|
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
|
|
|
|
|
|
Chofer = Dr("Chofer").ToString
|
|
Placa = Dr("Placa").ToString
|
|
EspecifUnidad = Dr("Especificacion").ToString
|
|
|
|
|
|
|
|
If ObjGral.GetGralMovimientosDetalleTimbre(CveTimbre, UsuarioActual.CveEmpresa) Then
|
|
Dt = ObjGral.DtResultados
|
|
End If
|
|
|
|
|
|
Dim Ruta As String = UsuarioActual.Empresa.Ruta
|
|
Dim PathXML As String = $"{Ruta}XML\{TipoDocto}\{SerieFolio }.xml"
|
|
|
|
|
|
Dim FechaEmision, FechaCertificacion As DateTime
|
|
Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT, SerieCertificadoSAT As String
|
|
|
|
FolioFiscal = ""
|
|
NoSerieCertificado = ""
|
|
SelloCFDi = ""
|
|
SelloSAT = ""
|
|
SerieCertificadoSAT = ""
|
|
|
|
|
|
If UsuarioActual.CveUsuario = 100 Then
|
|
Alert(PathXML)
|
|
End If
|
|
|
|
If System.IO.File.Exists(PathXML) Then
|
|
|
|
Dim ReceptorRFC As String = ""
|
|
|
|
Dim XmlDoc As New System.Xml.XmlDocument
|
|
XmlDoc.Load(PathXML)
|
|
|
|
Dim nodo As XmlNode = XmlDoc.DocumentElement
|
|
Dim Version As String = ValorXML(nodo, "version")
|
|
|
|
Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable)
|
|
Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix)
|
|
Dim cfdVer As String = ""
|
|
|
|
If Version = "3.2" Then
|
|
Prefijo = "cfd"
|
|
cfdVer = "http://www.sat.gob.mx/cfd/2"
|
|
ElseIf Version = "3.3" Then
|
|
cfdVer = "http://www.sat.gob.mx/cfd/3"
|
|
Else ' se considera que es la version 4.0
|
|
cfdVer = "http://www.sat.gob.mx/cfd/4"
|
|
End If
|
|
|
|
namespaces.AddNamespace(Prefijo, cfdVer)
|
|
namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
|
|
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
|
|
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
|
|
|
|
Dim node As XmlNode
|
|
|
|
node = XmlDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)
|
|
|
|
If node IsNot Nothing Then
|
|
ReceptorRFC = ValorXML(node, "RFC")
|
|
End If
|
|
|
|
|
|
|
|
|
|
If Version.Contiene("3.3", "4.0") Then
|
|
FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
|
|
NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText
|
|
|
|
For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
|
|
If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:TimbreFiscalDigital" Then
|
|
FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText
|
|
NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
|
|
FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("FechaTimbrado").InnerText.ToDate
|
|
SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloCFD").InnerText
|
|
SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("SelloSAT").InnerText
|
|
SerieCertificadoSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
|
|
|
|
|
|
|
|
End If
|
|
Next
|
|
Else
|
|
FechaEmision = XmlDoc.DocumentElement.Attributes("fecha").InnerText.ToDate
|
|
NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("noCertificado").InnerText
|
|
|
|
For i As Integer = 0 To XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes.Count - 1
|
|
If XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Name = "tfd:timbreFiscalDigital" Then
|
|
FolioFiscal = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("UUID").InnerText
|
|
NoSerieCertificado = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("noCertificadoSAT").InnerText
|
|
FechaCertificacion = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("fechaTimbrado").InnerText.ToDate
|
|
SelloCFDi = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloCFD").InnerText
|
|
SelloSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("selloSAT").InnerText
|
|
SerieCertificadoSAT = XmlDoc.DocumentElement("cfdi:Complemento").ChildNodes(i).Attributes("NoCertificadoSAT").InnerText
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
Dim CadenaOriginals As String = String.Format("||{0}|{1}|{2}T{3}|{4}|{5}||", If(Version.Contiene("3.3", "4.0"), "1.1", "1.0"), FolioFiscal, FechaCertificacion.ToString("yyyy-MM-dd"), FechaCertificacion.ToString("HH:mm:ss"), SelloCFDi, NoSerieCertificado)
|
|
|
|
Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{SerieFolio}.jpg"
|
|
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
|
|
If Not ImagenCBB.Exists Then GeneraQRSAT(UsuarioActual.Empresa.RFC, ReceptorRFC, 1, FolioFiscal, RutaGuardado:=RutaCBB)
|
|
|
|
Dim ImgCBB As String = $"file://{ImagenCBB.FullName}"
|
|
|
|
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
|
|
params.Add(New ReportParameter("CertificadoSAT", NoSerieCertificado))
|
|
params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString))
|
|
params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
|
|
params.Add(New ReportParameter("SelloSAT", SelloSAT))
|
|
params.Add(New ReportParameter("CertificadoContribuyente", NoSerieCertificadoContribuyente))
|
|
params.Add(New ReportParameter("QR", ImgCBB.ToString))
|
|
params.Add(New ReportParameter("SerieCertificadoSAT", SerieCertificadoSAT))
|
|
params.Add(New ReportParameter("CadenaOriginal", CadenaOriginals))
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
ObjGral.Dispose()
|
|
|
|
End If
|
|
|
|
If Dt.Rows.Count > 0 Then
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().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("ResponsableRecibio", 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/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", NowADS().ToDateTime.ToShortDateString))
|
|
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Function ValorNodoXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String
|
|
Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
|
If o Is Nothing Then
|
|
Return Retorno
|
|
Else
|
|
Return o.Value
|
|
End If
|
|
End Function
|
|
|
|
Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
|
|
Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
|
|
If o Is Nothing Then
|
|
Return Retorno
|
|
Else
|
|
Return o.Value
|
|
End If
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
|
|
|
|
Private Sub DescargaXMLTraslado(Parametros As Hashtable)
|
|
If Parametros("TIPODOCTO") IsNot Nothing AndAlso Parametros("TIPODOCTO").ToString <> "" 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("TIPODOCTO") IsNot Nothing AndAlso Parametros("TIPODOCTO").ToString <> "" 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)
|
|
Dim cvetimbre As Integer = IfNull(Parametros("CVETIMBRE"), "0").ToString.ToEntero
|
|
|
|
If Archivo.Exists Then
|
|
DescargarArchivoPDFTraslado(Archivo, Path)
|
|
Else
|
|
If Exten = "pdf" Then
|
|
Dim ObjTimbres As New Timbres(Parametros("TIPODOCTO").ToString, cvetimbre, UsuarioActual)
|
|
|
|
GeneraPDFFactura(ObjTimbres.ObjFactura)
|
|
Archivo = New System.IO.FileInfo(Path)
|
|
If Archivo.Exists Then
|
|
DescargarArchivoPDFTraslado(Archivo, Path)
|
|
End If
|
|
End If
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End Sub
|
|
Private Sub DescargarArchivoPDFTraslado(Archivo As System.IO.FileInfo, path As String)
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "text/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 Sub
|
|
|
|
Private Sub GeneraPDFFactura(ObjFactura As Modelos.Factura)
|
|
Try
|
|
' Dim objFactura = CreaObjetosTraslado(CveMovimiento)
|
|
If ObjFactura IsNot Nothing Then
|
|
PdfFactura(ObjFactura)
|
|
ObjFactura.Dispose()
|
|
End If
|
|
Catch ex As Exception
|
|
OnError("Ocurrió un error al generar el PDF", ex)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function CreaObjetosTraslado(CveMovimiento As Integer) As Modelos.Factura
|
|
Dim Folio As Integer = -1
|
|
Dim CveAlmacen As Integer = 0
|
|
Dim DtDetalle As DataTable = Nothing
|
|
|
|
Using ObjMovimientos As New ClsInventarios
|
|
If ObjMovimientos.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjMovimientos.DtResultados.Rows.Count = 1 Then
|
|
Folio = ObjMovimientos.Folio
|
|
CveAlmacen = ObjMovimientos.CveAlmacen
|
|
End If
|
|
|
|
If ObjMovimientos.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
|
DtDetalle = ObjMovimientos.DtResultados.Copy
|
|
End If
|
|
End Using
|
|
|
|
If Folio > 0 AndAlso DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then
|
|
Dim ObjFactura As New Modelos.Factura
|
|
ObjFactura.Version = "3.3"
|
|
ObjFactura.CveUsuario = UsuarioActual.CveUsuario
|
|
ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
|
|
ObjFactura.TipoCambio = 0
|
|
ObjFactura.ConvertirPesos = False
|
|
ObjFactura.TipoCambio = 0
|
|
ObjFactura.CveMoneda = 1
|
|
ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
|
|
ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", "CveMoneda = 1")
|
|
ObjFactura.MonedaAbreviatura = GlobalDTMonedas.FiltroPrimeroValor("Abreviatura", $"CveMoneda = {ObjFactura.CveMoneda} ")
|
|
ObjFactura.TipoDocto = "Tra"
|
|
ObjFactura.RefDocto = ""
|
|
ObjFactura.Folio = Folio
|
|
ObjFactura.Serie = "Tra"
|
|
'ObjFactura.CveMesa = -1
|
|
ObjFactura.Fecha = NowADS()
|
|
ObjFactura.CvePrePoliza = -1
|
|
ObjFactura.FechaPago = NowADS()
|
|
ObjFactura.MotivoDescuento = ""
|
|
ObjFactura.Observaciones = ""
|
|
ObjFactura.FechaEjecucion = NowADS()
|
|
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
|
|
ObjFactura.CveCondicionEntrega = -1
|
|
ObjFactura.CondicionEntrega = ""
|
|
ObjFactura.NumeroCuenta = ""
|
|
ObjFactura.CondicionesPago = 0
|
|
ObjFactura.FormaPago = 0
|
|
ObjFactura.PedidoContrato = ""
|
|
ObjFactura.OrdenCompra = ""
|
|
ObjFactura.NumeroContrato = ""
|
|
ObjFactura.NumeroDescripcionContrato = ""
|
|
ObjFactura.DescripcionContrato = ""
|
|
ObjFactura.CveCorte = -1
|
|
ObjFactura.TipoDocumento = "Traspaso"
|
|
ObjFactura.Alfa1 = ""
|
|
ObjFactura.Alfa2 = ""
|
|
ObjFactura.Alfa3 = ""
|
|
ObjFactura.Descuento = 0
|
|
ObjFactura.Amortizacion = 0
|
|
ObjFactura.CveContrato = 0
|
|
ObjFactura.CveVendedor = 0
|
|
ObjFactura.FechaVencimiento = NowADS()
|
|
ObjFactura.TipoEstatus = 0
|
|
ObjFactura.Det_OrdenCompra = ""
|
|
ObjFactura.Inv_CveEstatusEntrega = 0
|
|
ObjFactura.FormaPago33 = ""
|
|
ObjFactura.MetodoPago33 = ""
|
|
ObjFactura.UsoCFDI = ""
|
|
ObjFactura.CveClienteSucursal = 0
|
|
Dim CveSubProyecto As Integer = -1
|
|
If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows.Count > 0 Then
|
|
CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {CveAlmacen}").Rows(0)("CveSubProyecto").ToString.ToEntero
|
|
End If
|
|
ObjFactura.CveSubProyecto = CveSubProyecto
|
|
ObjFactura.CveSubProyectoCobranza = CveSubProyecto
|
|
ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
|
|
|
|
ObjFactura.SubTotal = 0
|
|
ObjFactura.Descuento = 0
|
|
ObjFactura.Amortizacion = 0
|
|
ObjFactura.IVA = 0
|
|
ObjFactura.RetIVA = 0
|
|
ObjFactura.RetISR = 0
|
|
ObjFactura.IEPS = 0
|
|
ObjFactura.Total = 0
|
|
ObjFactura.RFCReceptor = "XAXX010101000"
|
|
|
|
|
|
|
|
DtDetalle.Columns.Add("TotalImporte", Type.GetType("System.Double"))
|
|
DtDetalle.Columns.Add("Descuento", Type.GetType("System.Double"))
|
|
DtDetalle.Columns.Add("UM")
|
|
DtDetalle.Columns.Add("SATClaveUM")
|
|
DtDetalle.Columns.Add("SATClaveProdServ")
|
|
DtDetalle.Columns.Add("Noidentificacion")
|
|
DtDetalle.Columns.Add("CuentaPredial")
|
|
DtDetalle.Columns.Add("Obs")
|
|
DtDetalle.Columns.Add("ImporteIVA", Type.GetType("System.Double"))
|
|
DtDetalle.Columns.Add("PorcentajeIVA", Type.GetType("System.Double"))
|
|
|
|
|
|
For Each Row As DataRow In DtDetalle.Rows
|
|
Row("TotalImporte") = Row("Total")
|
|
Row("Descuento") = 0
|
|
Row("UM") = Row("UnidadMedida")
|
|
Row("SATClaveUM") = Row("SATClaveUnidadMedida")
|
|
Row("SATClaveProdServ") = Row("SATClavePS")
|
|
Row("Noidentificacion") = Row("Codigo")
|
|
Row("CuentaPredial") = ""
|
|
Row("Obs") = Row("Observaciones")
|
|
Row("ImporteIVA") = 0
|
|
Row("PorcentajeIVA") = 0
|
|
Next
|
|
|
|
'DETALLES
|
|
ObjFactura.DtDetalle = DtDetalle
|
|
|
|
'SUBPROYECTO
|
|
ObjFactura.SetSubProyectoMatriz(Me)
|
|
ObjFactura.SetSubProyecto(Me)
|
|
|
|
ObjFactura.Inv_CveMovimiento = CveMovimiento
|
|
|
|
ObjFactura.Timbre = PreParaTimbreTraslado(ObjFactura)
|
|
Return ObjFactura
|
|
End If
|
|
|
|
Return Nothing
|
|
|
|
End Function
|
|
Private Function PreParaTimbreTraslado(Obj As Modelos.Factura) As CFDITimbre
|
|
Dim Timbre As New CFDITimbre
|
|
Timbre.Comprobante.TipoComprobante = "T"
|
|
Timbre.Comprobante.Folio = Obj.Folio.ToString
|
|
Timbre.Comprobante.Serie = Obj.Serie
|
|
Timbre.Comprobante.Fecha = Obj.Fecha
|
|
Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
|
|
Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
|
|
Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
|
|
Timbre.Comprobante.SubTotal = Obj.SubTotal
|
|
Timbre.Comprobante.Descuentos = Obj.Descuento
|
|
Timbre.Comprobante.Moneda = Obj.MonedaSAT
|
|
Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
|
|
Timbre.Comprobante.Total = Obj.Total
|
|
|
|
Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
|
|
Timbre.Comprobante.Confirmacion = ""
|
|
|
|
Timbre.Receptor.RFC = "XAXX010101000"
|
|
Timbre.Receptor.Nombre = UsuarioActual.Empresa.Empresa
|
|
Timbre.Receptor.UsoCFDI = "P01"
|
|
|
|
Dim totSubTotal As Decimal = Obj.SubTotal
|
|
Dim totIVA As Decimal = Obj.IVA
|
|
Dim totRetIVA As Decimal = Obj.RetIVA
|
|
Dim totRetISR As Decimal = Obj.RetISR
|
|
Dim i As Integer = 1
|
|
|
|
'DETALLES
|
|
Dim tPS As String = ""
|
|
|
|
For Each drr As DataRow In Obj.DtDetalle.Rows
|
|
If drr("PS").ToString.Length = 1 Then
|
|
tPS = drr("Obs").ToString
|
|
Else
|
|
If drr("PS").ToString.Length = 0 Then
|
|
tPS = ""
|
|
Else
|
|
tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
|
|
End If
|
|
End If
|
|
|
|
'CONDICIONANTE, ESPECIAL
|
|
If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" 'LES COMENTAN QUE NO DEBE IR LA ETIQUETA DE LA UNIDAD EN EL PRODUCTO
|
|
|
|
Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
|
|
.Descripcion = tPS,
|
|
.ValorUnitario = drr("PU").ToString.ToDecimal,
|
|
.Importe = drr("TotalImporte").ToString.ToDecimal,
|
|
.Descuento = drr("Descuento").ToString.ToDecimal,
|
|
.Unidad = drr("UM").ToString,
|
|
.ClaveUnidad = drr("SATClaveUM").ToString,
|
|
.ClaveProdServ = drr("SATClaveProdServ").ToString,
|
|
.Noidentificacion = drr("Noidentificacion").ToString,
|
|
.CuentaPredial = drr("CuentaPredial").ToString}
|
|
'VERIFICA SUMA SUBTOTALES
|
|
If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'PROCESO DE AJUSTA DE DECIMALES
|
|
concepto.Importe = totSubTotal
|
|
End If
|
|
totSubTotal = totSubTotal - concepto.Importe
|
|
|
|
'SIEMPRE ESTAMOS AGREGANDO EL IVA
|
|
'concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
|
|
|
|
Timbre.Conceptos.Add(concepto)
|
|
i += 1
|
|
Next
|
|
Return Timbre
|
|
End Function
|
|
|
|
#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
|
|
|
|
#End Region
|
|
|
|
#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
|
|
|
|
Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer, Optional Resumen As Boolean = False,
|
|
Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1, Optional Consola As String = "")
|
|
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 As Integer = 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")
|
|
|
|
|
|
Dim Ruta As String = ""
|
|
Dim Supervisor As String = ""
|
|
|
|
If String.IsNullOrEmpty(Recibio) 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
|
|
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
|
|
Ruta = ObjRH.DtResultados.Rows(0)("Ruta").ToString
|
|
Supervisor = ObjRH.DtResultados.Rows(0)("Supervisor").ToString
|
|
End If
|
|
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.Empresa.Funcionalidad(531) = "1" AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
|
|
CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
|
|
If CveConcepto.Contiene(2, 3, 26, 27, 40, 41) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
|
|
FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
|
|
CveMovimientoRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero
|
|
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, Resumen:=Resumen) Then
|
|
DtMovimientos = ObjInventarios.DtResultados
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then
|
|
If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa, Resumen:=Resumen) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
|
|
Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero()
|
|
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")
|
|
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
|
|
Else
|
|
|
|
If EsTransitorio Then
|
|
|
|
If ObjInventarios.GetMovimientosTransitorios(CveAlmacenRecepcion, -1, CveAlmacenTransitorioRecepcion, -1, FolioBusquedaTrasitorio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
|
|
DtMovimientos = ObjInventarios.DtResultados.FiltraParametros(String.Format("CveTipoAlmacenDestino <> 4 AND CvePS > 0"))
|
|
CantidadProductos = DtMovimientos.SUM("Cantidad")
|
|
|
|
If Not DtMovimientos.Columns.Contains("No") Then
|
|
DtMovimientos.Columns.Add("No", GetType(Integer))
|
|
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
|
|
Else
|
|
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
|
|
DtMovimientos = ObjInventarios.DtResultados.Copy()
|
|
CantidadProductos = DtMovimientos.SUM("Cantidad")
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" 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")
|
|
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
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCompra > 0 Then
|
|
If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, -1, UsuarioActual.CveEmpresa, -1) 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
|
|
|
|
If EsTransitorio Then
|
|
|
|
Observaciones = If(Observaciones.Trim.Length = 0, "Impresión con cantidades pendientes de recibir", $"Impresión con cantidades pendientes de recibir - {Observaciones}")
|
|
|
|
End If
|
|
|
|
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,
|
|
Ruta:=Ruta, Supervisor:=Supervisor, Consola:=Consola)
|
|
|
|
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 = "",
|
|
Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Consola As String = "-1")
|
|
|
|
|
|
Select Case CveConcepto
|
|
Case 1 'INICIAL
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", 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", NowADS().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
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 2, 32, 33, 36, 48 ' 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 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
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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, 186, 193) 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", NowADS().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(186) Then
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
|
End If
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80, 193) 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.ToDecimal.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
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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", NowADS().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.ToDecimal.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
|
|
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
|
|
ImprimirPDFStimul("Empresas/Grales/Formatos/EntradaSalida.mrt", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString))
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
End If
|
|
|
|
Case 3, 16, 37, 40, 45, 47 ' 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 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"
|
|
ElseIf CveConcepto = 45 Then
|
|
concepto = "SALIDA DE USADOS"
|
|
ElseIf CveConcepto = 47 Then
|
|
concepto = "SALIDA POR CAMBIO DE VIGENCIA"
|
|
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", NowADS().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, 186) 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(186) Then
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
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", NowADS().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
|
|
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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))
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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
|
|
If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
|
|
ImprimirPDFStimul("Empresas/Grales/Formatos/EntradaSalida.mrt", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString))
|
|
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
|
|
End If
|
|
|
|
Case 4 ' ENTRADA POR DESARMADO
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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", NowADS().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 params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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))
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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 params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
|
|
Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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))
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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", NowADS().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 params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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"
|
|
If CveTipoAlmacen = 22 Then
|
|
RutaFormato = "{0}Formatos\TrasladoUsado.rdlc"
|
|
End If
|
|
|
|
|
|
|
|
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 As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "",
|
|
Paqueteria As String = "", NumContrato As String = "", Guia As String = "", Documentacion As String = ""
|
|
|
|
Dim CveContrato As Integer = 0
|
|
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
|
|
CveContrato = DtMovimientos.FiltroPrimeroValor("CveContrato").ToEntero
|
|
End If
|
|
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
|
|
|
|
CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero
|
|
DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
|
|
|
|
If CveCliente = 819998 Then
|
|
RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
|
|
End If
|
|
|
|
If Consola <> "-1" And Consola.Trim.Length > 0 Then
|
|
RutaFormato = "{0}Formatos\Consola.rdlc"
|
|
params.Add(New ReportParameter("Consola", Consola))
|
|
End If
|
|
|
|
|
|
|
|
Dim CveVentaConsulta As Integer = DtMovimientos.FiltroPrimeroValor("CveVenta").ToEntero
|
|
|
|
params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion")))
|
|
|
|
Dim ObjVentas As New ClsVentas()
|
|
If ObjVentas.GetVenta(CveVentaConsulta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
Dim dtVentas As DataTable = ObjVentas.DtResultados
|
|
|
|
params.Add(New ReportParameter("ClienteCodigo", dtVentas.Rows(0)("ClienteCodigo").ToString))
|
|
params.Add(New ReportParameter("ClienteNombre", dtVentas.Rows(0)("ClienteNombre").ToString))
|
|
params.Add(New ReportParameter("ClienteSucursal", dtVentas.Rows(0)("SucursalCliente").ToString))
|
|
params.Add(New ReportParameter("ClienteRFC", dtVentas.Rows(0)("ClienteRFC").ToString))
|
|
|
|
params.Add(New ReportParameter("ClienteCalle", dtVentas.Rows(0)("ClienteDireccion").ToString))
|
|
params.Add(New ReportParameter("ClienteNoExt", dtVentas.Rows(0)("ClienteNoExt").ToString))
|
|
params.Add(New ReportParameter("ClienteColonia", dtVentas.Rows(0)("ColoniaCliente").ToString))
|
|
params.Add(New ReportParameter("ClienteCiudad", dtVentas.Rows(0)("ClienteCiudad").ToString))
|
|
params.Add(New ReportParameter("ClienteEstado", dtVentas.Rows(0)("ClienteEstado").ToString))
|
|
|
|
params.Add(New ReportParameter("ClienteMunicipio", dtVentas.Rows(0)("SucClienteCiudad").ToString))
|
|
params.Add(New ReportParameter("ClienteCP", dtVentas.Rows(0)("CPCliente").ToString))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
End If
|
|
ObjVentas.Dispose()
|
|
|
|
|
|
|
|
|
|
|
|
End If
|
|
|
|
If CveContrato > 0 Then
|
|
Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
|
|
NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
|
|
CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
|
|
CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).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.Contiene(119, 186) 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))
|
|
Dim NombreArchivo As String = If(Consola <> "-1" And Consola.Trim.Length > 0, $"Aviso de Traslado - {Folio} Consola", $"Aviso de Traslado - {Folio}")
|
|
|
|
If Archivo.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
If UsuarioActual.CveEmpresa = 140 Then
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().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))
|
|
ElseIf UsuarioActual.CveEmpresa = 153 Then
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
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))
|
|
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.Contiene(72, 119, 186) Then
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().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, NombreArchivo, RDSName:="DsInventarios")
|
|
Else
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
|
|
ImprimirPDFStimul(String.Format("Empresas/Grales/Formatos/Traslado.mrt", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, NombreArchivo, RDSName:="DsInventarios")
|
|
End If
|
|
|
|
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 UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
|
|
Dim CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero
|
|
Dim DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
|
|
params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion")))
|
|
|
|
'If CveCliente = 819998 Then
|
|
' RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc"
|
|
'End If
|
|
End If
|
|
|
|
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.Contiene(72, 119, 186) Then
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().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"))
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
|
|
params.Add(New ReportParameter("Destino", Almacen))
|
|
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().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))
|
|
ElseIf UsuarioActual.CveEmpresa = 153 Then
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
|
|
params.Add(New ReportParameter("Destino", Almacen))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
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
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().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", NowADS().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 Decimal = ObjInventarios.DtResultados.SUM("Total") * 1.16D
|
|
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 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.ToDecimal.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
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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 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 <> "" AndAlso DtMovimientos.Columns.Contains("Municipio") 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", NowADS().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 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", NowADS().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 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", NowADS().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", NowADS().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
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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", NowADS().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 params As New List(Of ReportParameter)
|
|
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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 params As New List(Of ReportParameter)
|
|
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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 params As New List(Of ReportParameter)
|
|
Dim Archivo As String = RutaFormatoReporte("EntradaSalida.rdlc")
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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", NowADS().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("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 params As New List(Of ReportParameter)
|
|
|
|
|
|
' 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", NowADS().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 params As New List(Of ReportParameter)
|
|
Dim Archivo As String = RutaFormatoReporte("EntradaSalidaUniforme.rdlc")
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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", NowADS().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))
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
|
|
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
|
|
params.Add(New ReportParameter("Sucursal", SubProyecto))
|
|
params.Add(New ReportParameter("DepartamentoRecibio", 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 params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
|
|
Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc")
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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))
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) Then
|
|
params.Add(New ReportParameter("Ruta", Ruta))
|
|
params.Add(New ReportParameter("Supervisor", Supervisor))
|
|
params.Add(New ReportParameter("NombreEmpleado", Recibio))
|
|
params.Add(New ReportParameter("UsuarioEntrega", UsuarioRegistro))
|
|
End If
|
|
|
|
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 params As New List(Of ReportParameter)
|
|
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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", NowADS().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 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", NowADS().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
|
|
ImprimirPDF(RutaFormatoReporte("ConsumoInterno.rdlc"), DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
|
|
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", NowADS().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 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", NowADS().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", NowADS().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
|
|
If UsuarioActual.CveEmpresa = 140 Then
|
|
params.Add(New ReportParameter("Concepto", ConceptoReporte))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
|
|
End If
|
|
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
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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", NowADS().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
|
|
|
|
ImprimirPDF(RutaFormatoReporte("EntradaSalida.rdlc"), DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
|
|
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, Fecha.ToDate, Today.ToDate) Then
|
|
DatosEntradasUsados = ObjAcum.DtResultados
|
|
|
|
End If
|
|
ObjAcum.Dispose()
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("Direccion", Almacen))
|
|
params.Add(New ReportParameter("FechaConFormato", Fecha))
|
|
params.Add(New ReportParameter("Sucursal", "Sucursal"))
|
|
params.Add(New ReportParameter("Cliente", NombreCliente))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy hh:mm tt")))
|
|
params.Add(New ReportParameter("Recibio", Recibio))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico."))
|
|
|
|
|
|
Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/UsadosEntradas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim PathRutaReporte As String = "\Formatos\UsadosEntradas.rdlc"
|
|
|
|
If Not FIRutaReporte.Exists Then
|
|
PathRutaReporte = "\Empresas\Grales\Formatos\UsadosEntradas.rdlc" 'No existe el General solo se hizo para la 140
|
|
End If
|
|
|
|
|
|
ImprimirPDF(PathRutaReporte, 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", NowADS().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", NowADS().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 As String = ""
|
|
CreaDT()
|
|
|
|
Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim PathRutaReporte As String = "\Formatos\OrdenServicio.rdlc"
|
|
|
|
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.ToDate.ToString("dd/MM/yyyy")))
|
|
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 RutaReporte.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))
|
|
|
|
params.Add(New ReportParameter("DireccionOS", dr("DireccionOS").ToString))
|
|
params.Add(New ReportParameter("Telefono", dr("Telefono").ToString))
|
|
params.Add(New ReportParameter("CorreoOS", dr("CorreoOS").ToString))
|
|
|
|
params.Add(New ReportParameter("ModeloMarca", dr("ModeloMarca").ToString))
|
|
params.Add(New ReportParameter("Año", dr("Año").ToString))
|
|
params.Add(New ReportParameter("TelefonoContacto", dr("TelefonoContacto").ToString))
|
|
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("Condiciones", dr("Condiciones").ToString))
|
|
params.Add(New ReportParameter("FechaAtencion", If(dr("FechaInicio").ToString.Length > 0, dr("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy hh:mm tt"), "")))
|
|
params.Add(New ReportParameter("TecnicoAsignado", dr("UsuarioAtendio").ToString))
|
|
|
|
|
|
|
|
|
|
'End If
|
|
|
|
|
|
|
|
End If
|
|
End If
|
|
|
|
|
|
|
|
If Not FIRutaReporte.Exists Then
|
|
|
|
PathRutaReporte = "\Empresas\Grales\Formatos\OrdenServicio.rdlc"
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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(PathRutaReporte, 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 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()
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
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 As DataRow = 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
|
|
|
|
ImprimirPDF(RutaFormatoReporte("ResguardoAF.rdlc"), dtVC, params, NomArchivo)
|
|
|
|
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 drv As DataRow = Nothing
|
|
|
|
Dim ObjVentas As New ClsVentas
|
|
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
drv = ObjVentas.DtResultados.FiltroPrimero("")
|
|
End If
|
|
ObjVentas.Dispose()
|
|
|
|
If drv IsNot Nothing Then
|
|
Dim Total As Decimal = drv("Total").ToString().ToDecimal()
|
|
Dim CveEstatusFactura As Integer = drv("CveEstatusFactura").ToString().ToEntero()
|
|
Dim FolioFiscal As String = drv("FolioFiscal").ToString()
|
|
Dim RFCReceptor As String = drv("RFCReceptor").ToString()
|
|
Dim SelloCancelacion As String = drv("SelloCancelacion").ToString()
|
|
Dim SelloSolicitudCancelacion As String = drv("SelloSolicitudCancelacion").ToString()
|
|
Dim EstadoCancelacion As String = drv("EstadoCancelacion").ToString()
|
|
Dim FechaCancelacion As DateTime = drv("FechaCancelacion").ToString.ToDateTime
|
|
|
|
Dim MotivoCancelacion As String = ""
|
|
Dim FolioSustitucion As String = ""
|
|
|
|
Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt"
|
|
|
|
Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
|
|
|
|
Dim Titulo As String = "Acuse de cancelación de CFDI"
|
|
Dim EstadoCFDI As String = "Cancelado"
|
|
|
|
'SI NO TIENE EL SELLO BUSCA OBTNERLO DE NUEVO
|
|
If String.IsNullOrEmpty(SelloCancelacion) Then
|
|
Dim ObjCancelacion As New Timbrado
|
|
If ObjCancelacion.ObtenerAcuse(CveVenta, UsuarioActual) Then
|
|
SelloCancelacion = ObjCancelacion.CancelacionAcuse
|
|
|
|
If FechaCancelacion = Nothing OrElse FechaCancelacion = MinFecha Then
|
|
FechaCancelacion = ObjCancelacion.CancelacionFecha
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If CveEstatusFactura = 20 Then
|
|
|
|
DirectorioArchivo = "Empresas/Grales/Formatos/AcuseCancelacionSolicitud.mrt"
|
|
|
|
Titulo = "Acuse de solicitud de cancelación de CFDI"
|
|
EstadoCFDI = "Vigente"
|
|
|
|
Using ObjV As New ClsVentas
|
|
If ObjV.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CveVenta:=CveVenta) Then
|
|
Dim RowCancelacion As DataRow = ObjV.DtResultados.FiltroPrimero("")
|
|
If RowCancelacion IsNot Nothing Then
|
|
Dim CveMotivoCancelacion As Integer = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero()
|
|
FolioSustitucion = RowCancelacion("FolioFiscalSustitucion").ToString()
|
|
|
|
If CveMotivoCancelacion > 0 Then
|
|
MotivoCancelacion = GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CodigoSATDescripcion")
|
|
End If
|
|
End If
|
|
End If
|
|
End Using
|
|
|
|
|
|
'SI TIENE DATOS EN EL SELLO DE SOLICITUD Y ESTA EN PROCESO, ENVIAR ESTE SELLO
|
|
If Not String.IsNullOrEmpty(SelloSolicitudCancelacion) Then
|
|
SelloCancelacion = SelloSolicitudCancelacion
|
|
End If
|
|
|
|
If String.IsNullOrEmpty(EstadoCancelacion) Then
|
|
EstadoCancelacion = "Cancelable con aceptación"
|
|
End If
|
|
ElseIf CveEstatusFactura = 5 Then
|
|
If String.IsNullOrEmpty(EstadoCancelacion) Then
|
|
If Total >= 5000 And FechaCancelacion.Year < 2022 Then
|
|
EstadoCancelacion = "Cancelado con aceptación"
|
|
End If
|
|
|
|
If Total >= 1000 And FechaCancelacion.Year >= 2022 Then
|
|
EstadoCancelacion = "Cancelado con aceptación"
|
|
End If
|
|
|
|
If String.IsNullOrEmpty(EstadoCancelacion) Then
|
|
EstadoCancelacion = "Cancelado sin aceptación"
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Titulo", Titulo))
|
|
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
|
|
params.Add(New ReportParameter("RFCEmisor", RFCEmisor))
|
|
params.Add(New ReportParameter("RFCReceptor", RFCReceptor))
|
|
params.Add(New ReportParameter("SelloCancelacion", SelloCancelacion))
|
|
params.Add(New ReportParameter("EstadoCFDI", EstadoCFDI))
|
|
params.Add(New ReportParameter("EstadoCancelacion", EstadoCancelacion))
|
|
params.Add(New ReportParameter("MsgError", ""))
|
|
params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
|
|
|
|
Dim DtAcuse As New DataTable("DtAcuse")
|
|
DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
|
|
DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
|
|
DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
|
|
DtAcuse.Columns.Add(New DataColumn("FolioSustitucion", GetType(String)))
|
|
|
|
If CveEstatusFactura = 20 Then
|
|
|
|
Dim RowCFDI As DataRow = DtAcuse.NewRow()
|
|
|
|
RowCFDI("FolioFiscal") = FolioFiscal
|
|
RowCFDI("Estatus") = "Solicitud de cancelación recibida"
|
|
RowCFDI("MotivoCancelacion") = MotivoCancelacion
|
|
RowCFDI("FolioSustitucion") = FolioSustitucion
|
|
|
|
DtAcuse.Rows.Add(RowCFDI)
|
|
End If
|
|
ImprimirPDFStimul(DirectorioArchivo, DtAcuse, params, "AcuseCancelacion" & CveVenta)
|
|
|
|
End If
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'DC' - DEPOSITOS CAJA"
|
|
Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String, TipoPago As String)
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
Dim Tabla As DataTable = Nothing
|
|
|
|
Dim ObjIE As New ClsBancos()
|
|
If ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa) Then
|
|
Tabla = ObjIE.DtResultados.Copy()
|
|
End If
|
|
ObjIE.Dispose()
|
|
|
|
If Tabla IsNot Nothing AndAlso Tabla.Rows.Count > 0 Then
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Fecha", NowADS().ToDateTime.ToString))
|
|
params.Add(New ReportParameter("FechaIE", Tabla(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
|
|
params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
|
|
params.Add(New ReportParameter("TipoPago", TipoPago))
|
|
|
|
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
|
|
End If
|
|
|
|
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 As Integer = -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 As String = ObjIE.Folio
|
|
Dim Importe As Decimal = ObjIE.Importe
|
|
Dim Observacion As String = ObjIE.Observaciones
|
|
Dim ImporteLetra As String = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
|
Dim Beneficiario As String = ObjIE.PagueseA
|
|
Dim Fecha As String = ObjIE.FechaDocumento.ToShortDateString
|
|
Dim CveCuenta As Integer = 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", "")))
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(141) Then
|
|
Dim InicialesUsuarioGenero As String = ""
|
|
Try
|
|
Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
|
|
If NombreUsuarioRenero.Trim.Length > 0 Then
|
|
NombreUsuarioRenero.Split(" "c).ToList().ForEach(Sub(i) InicialesUsuarioGenero += i(0))
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
|
|
|
|
End If
|
|
|
|
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 As DataRow = 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
|
|
|
|
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) 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 ObjIE.DtResultados.Rows.Count > 0 Then
|
|
|
|
For Each drt As DataRow In ObjIE.DtResultados.Rows
|
|
Dim Dr As DataRow = 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
|
|
|
|
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 = NowADS()
|
|
Dim Importe As Decimal
|
|
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
|
|
|
|
If ObjIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
|
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
|
CveProveedor = ObjIE.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
|
|
CvePersonal = ObjIE.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
|
|
|
|
IVA = ObjIE.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
|
|
|
|
|
|
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 = NowADS()
|
|
Dim Importe As Decimal
|
|
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 logouri As String = ""
|
|
Dim RutaLogo As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)
|
|
|
|
Dim Imagen As New System.IO.FileInfo(RutaLogo)
|
|
|
|
If Imagen.Exists Then
|
|
logouri = String.Format("file://{0}", RutaLogo)
|
|
Else
|
|
logouri = ""
|
|
End If
|
|
|
|
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", NowADS().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", NowADS().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", NowADS().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().ToDate().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
|
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
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 CvePrePoliza As Integer = 0
|
|
Dim dtMovs As New DataTable
|
|
If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
|
|
|
|
dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
|
|
|
|
If dtMovs IsNot Nothing AndAlso dtMovs.Rows.Count > 0 Then
|
|
CvePrePoliza = dtMovs.Rows(0)("CVePrePoliza").ToString.ToEntero
|
|
|
|
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
|
|
|
|
|
|
End If
|
|
|
|
Dim rds As 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 As New ReportDataSource("DataSet2", dtnc)
|
|
reportDataSetsList.Add(rds2)
|
|
dtnc.Dispose()
|
|
|
|
Dim paramList As New List(Of ReportParameter)
|
|
With paramList
|
|
.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
.Add(New ReportParameter("FechaImpresion", NowADS().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))
|
|
.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
End With
|
|
dtMovs.Dispose()
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 And CvePrePoliza > 0 Then
|
|
|
|
Dim ObjContabilidad As New ClsContabilidad
|
|
|
|
ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
|
|
Dim dtPrePoliza As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
|
|
ObjContabilidad.Dispose()
|
|
|
|
Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza)
|
|
reportDataSetsList.Add(rdsPrePoliza)
|
|
|
|
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
|
Else
|
|
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
|
End If
|
|
|
|
|
|
|
|
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 = 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($"{UsuarioActual.Empresa.Ruta}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 PS As String = ""
|
|
Dim All As Byte()
|
|
Using ms As New MemoryStream
|
|
Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
|
|
pdfdoc.InitializeOutlines()
|
|
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
|
|
PS = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
|
|
If Modalidad = "Individual" Then
|
|
Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
|
|
|
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
|
|
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
|
|
docEtiqueta.Close()
|
|
Else
|
|
Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
|
|
|
|
For i As Integer = 0 To Cant
|
|
Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
|
|
|
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
|
|
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
|
|
docEtiqueta.Close()
|
|
Next
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
pdfdoc.Close()
|
|
|
|
End Using
|
|
All = ms.ToArray()
|
|
End Using
|
|
ImprimirbytesPDF(All, PS.ToString)
|
|
|
|
|
|
If Modalidad = "Individual" Then
|
|
Else
|
|
|
|
End If
|
|
ObjInventarios.Dispose()
|
|
End Sub
|
|
|
|
Private Sub ImprimirEtiqueta2(CvePS As Integer, PS As String, CveAlmacen As String, Modalidad As String)
|
|
|
|
Dim ObjInventarios As New ClsInventarios
|
|
|
|
Dim All As Byte()
|
|
Using ms As New MemoryStream
|
|
Using pdfdoc As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfWriter(ms))
|
|
pdfdoc.InitializeOutlines()
|
|
If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveAlmacen.ToString) Then
|
|
If ObjInventarios.DtResultados IsNot Nothing Then
|
|
For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows
|
|
Dim Lote As String = DetalleRow.Item("Lote").ToString
|
|
Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
|
|
If Modalidad = "Individual" Then
|
|
Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
|
|
|
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
|
|
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
|
|
docEtiqueta.Close()
|
|
Else
|
|
Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
|
|
|
|
For i As Integer = 0 To Cant
|
|
Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
|
|
|
|
Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
|
|
docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
|
|
docEtiqueta.Close()
|
|
Next
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
pdfdoc.Close()
|
|
|
|
End Using
|
|
All = ms.ToArray()
|
|
End Using
|
|
ImprimirbytesPDF(All, PS.ToString)
|
|
|
|
|
|
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 = System.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("dd/MM/yyyy")))
|
|
Dim tRuta As String = String.Format("{0}Formatos/EtiquetaDeRecepcion.rdlc", UsuarioActual.Empresa.Ruta)
|
|
|
|
If Not IO.File.Exists(tRuta) Then tRuta = "Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc"
|
|
Return StreamPDF(tRuta, New DataTable, params)
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "OP = AJUSTE"
|
|
Private Sub ImprimirPDFAjuste(CveGarantiaDetalle As Integer)
|
|
' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
Dim RowAjuste As DataRow = Nothing
|
|
|
|
Using ObjAcum As New ClsAcumuladores
|
|
If ObjAcum.GetFoliosGarantiasDetalle(-1, CveGarantiaDetalle) Then
|
|
If ObjAcum.DtResultados.Rows.Count > 0 Then
|
|
RowAjuste = ObjAcum.DtResultados.Rows(0)
|
|
End If
|
|
End If
|
|
End Using
|
|
|
|
Dim CvePSAjuste As Integer = RowAjuste("CvePS").ToString.ToEntero()
|
|
Dim CveCliente As Integer = RowAjuste("CveCliente").ToString.ToEntero()
|
|
Dim CveClienteDistribuidor As Integer = RowAjuste("CveClienteDistribuidor").ToString.ToEntero()
|
|
Dim Consec As String = RowAjuste("Consecutivo").ToString
|
|
Dim FolioGarantia As String = RowAjuste("FolioGarantia").ToString
|
|
Dim FechaAjuste As DateTime = RowAjuste("FechaVenta").ToString.ToDateTime()
|
|
Dim FechaReclamacion As DateTime = RowAjuste("FechaReclamacion").ToString.ToDateTime()
|
|
Dim TipoDefecto As String = RowAjuste("TipoDefecto").ToString
|
|
Dim CveTipoUso As Integer = RowAjuste("CveTipoUso").ToString.ToEntero()
|
|
Dim CodigoEnsamble As String = RowAjuste("CodigoEnsamble").ToString
|
|
Dim CodigoLinea As String = RowAjuste("CodigoLinea").ToString
|
|
Dim CodigoInspeccion As String = RowAjuste("CodigoInspeccion").ToString
|
|
|
|
Dim MesesUso As String = "0"
|
|
Dim PorcentajeAjuste As String = RowAjuste("PorcentajeAjuste").ToString
|
|
Dim BCIAjuste As String = RowAjuste("BCIAjuste").ToString
|
|
Dim Etiqueta As String = RowAjuste("Etiqueta").ToString
|
|
|
|
Dim Año As String = RowAjuste("Año").ToString
|
|
Dim Comprobante As String = RowAjuste("Comprobante").ToString
|
|
|
|
Dim ModeloAuto As String = RowAjuste("ModeloAuto").ToString
|
|
Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString
|
|
Dim CodigoTD As String = RowAjuste("CodigoTD").ToString
|
|
|
|
Dim PSAjuste As String = ""
|
|
Dim MarcaPS As String = ""
|
|
Dim CveMarca As Integer = -1
|
|
|
|
Dim FechaI As Date = FechaAjuste.AddDays(1)
|
|
Dim FechaF As Date = FechaReclamacion
|
|
|
|
Dim Dia As Integer = FechaI.Day
|
|
Try
|
|
'validación adicional, para saber si el mes tiene 31 días y el actua es menor.
|
|
If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day
|
|
Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual
|
|
|
|
Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo
|
|
|
|
If FechaT > FechaF Then
|
|
'todavía está en el mes actual.
|
|
MesesTrascurridos = MesesTrascurridos
|
|
Else
|
|
MesesTrascurridos = MesesTrascurridos + 1
|
|
End If
|
|
|
|
MesesUso = MesesTrascurridos.ToString
|
|
|
|
Catch ex As Exception
|
|
OnError("Ocurrió un error al calcular los meses de uso", ex)
|
|
End Try
|
|
|
|
|
|
Dim ObjPS As New ClsProductosServicios
|
|
If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then
|
|
Dim RowPS As DataRow = ObjPS.DtResultados.FiltroPrimero(String.Format("CvePS = {0}", CvePSAjuste))
|
|
If RowPS IsNot Nothing Then
|
|
PSAjuste = RowPS("PS").ToString()
|
|
MarcaPS = RowPS("Marca").ToString()
|
|
'SI ES MOTOBATERIAS PONER EL NOMBRE EN EL TIPO
|
|
If RowPS("CveClasificacion").ToString() = "20517" Then
|
|
BCIAjuste = PSAjuste
|
|
End If
|
|
End If
|
|
End If
|
|
ObjPS.Dispose()
|
|
|
|
|
|
Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim DtDatos As New DataTable
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
|
|
'Informacion Distribuidor
|
|
If (CveClienteDistribuidor > 0) Then
|
|
|
|
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor))
|
|
Dim CiudadEstado As String = ""
|
|
Dim Telefono As String = ""
|
|
Dim Nombre As String = ""
|
|
|
|
If DatosClienteSeleccionado IsNot Nothing Then
|
|
CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
|
|
Telefono = DatosClienteSeleccionado("Telefono").ToString
|
|
Nombre = DatosClienteSeleccionado("Nombre").ToString
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreDistribuidor", Nombre))
|
|
params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
|
|
params.Add(New ReportParameter("TelCliente", Telefono))
|
|
End If
|
|
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Consec", Consec))
|
|
params.Add(New ReportParameter("FolioAcuse", FolioGarantia))
|
|
|
|
'Informacion de Garantia o ajuste
|
|
params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Defecto", TipoDefecto))
|
|
params.Add(New ReportParameter("MesesUso", MesesUso))
|
|
params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste))
|
|
|
|
'Informacion Acumulador
|
|
params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble))
|
|
params.Add(New ReportParameter("CodLinea", CodigoLinea))
|
|
params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion))
|
|
params.Add(New ReportParameter("Tipo", BCIAjuste))
|
|
params.Add(New ReportParameter("Marca", MarcaPS))
|
|
params.Add(New ReportParameter("Etiqueta", Etiqueta))
|
|
|
|
'Informacion Vehiculo
|
|
params.Add(New ReportParameter("MarcaAuto", MarcaAuto))
|
|
params.Add(New ReportParameter("TipoAuto", ModeloAuto))
|
|
|
|
'Informacion Consumidor
|
|
If (CveCliente > 0) Then
|
|
|
|
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))
|
|
|
|
Dim Nombre As String = ""
|
|
Dim Ciudad As String = ""
|
|
Dim Estado As String = ""
|
|
Dim Direccion As String = ""
|
|
Dim Telefono As String = ""
|
|
|
|
If DatosClienteSeleccionado IsNot Nothing Then
|
|
Nombre = DatosClienteSeleccionado("Nombre").ToString
|
|
Ciudad = DatosClienteSeleccionado("Ciudad").ToString
|
|
Estado = DatosClienteSeleccionado("Estado").ToString
|
|
Direccion = DatosClienteSeleccionado("Direccion").ToString
|
|
Telefono = DatosClienteSeleccionado("Telefono").ToString
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreCliente", Nombre))
|
|
params.Add(New ReportParameter("Direccion", Direccion))
|
|
params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
|
|
params.Add(New ReportParameter("TelConsumidor", Telefono))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Anio", Año))
|
|
params.Add(New ReportParameter("Comprobante", Comprobante))
|
|
params.Add(New ReportParameter("CodigoTD", CodigoTD))
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
|
|
End Sub
|
|
|
|
Private Sub ImprimirPDFAjuste(CvePSAjuste As Integer, CveCliente As Integer, CveClienteDistribuidor As Integer, Consec As String, FolioGarantia As String, FechaAjuste As DateTime, FechaReclamacion As DateTime,
|
|
TipoDefecto As String, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, PorcentajeAjuste As String,
|
|
BCIAjuste As String, Etiqueta As String, Año As String, Comprobante As String, ModeloAuto As String, MarcaAuto As String, CodigoTD As String)
|
|
|
|
Dim MesesUso As String = "0"
|
|
|
|
Dim PSAjuste As String = ""
|
|
Dim MarcaPS As String = ""
|
|
Dim CveMarca As Integer = -1
|
|
|
|
Dim FechaI As Date = FechaAjuste.AddDays(1)
|
|
Dim FechaF As Date = FechaReclamacion
|
|
|
|
Dim Dia As Integer = FechaI.Day
|
|
Try
|
|
'validación adicional, para saber si el mes tiene 31 días y el actua es menor.
|
|
If FechaI.Day > Today.LastDayOfMonth.Day Then Dia = Today.LastDayOfMonth.Day
|
|
Dim FechaT As Date = String.Format("{0}/{1}/{2}", Dia, FechaF.Month, FechaF.Year).ToDate 'armo la fecha con el día del mes actual
|
|
|
|
Dim MesesTrascurridos As Integer = Math.Round(DateDiff(DateInterval.Day, FechaI, FechaT) / 30.4, 2).ToEntero 'saco los meses y lo redondeo
|
|
|
|
If FechaT > FechaF Then
|
|
'todavía está en el mes actual.
|
|
MesesTrascurridos = MesesTrascurridos
|
|
Else
|
|
MesesTrascurridos = MesesTrascurridos + 1
|
|
End If
|
|
|
|
MesesUso = MesesTrascurridos.ToString
|
|
|
|
Catch ex As Exception
|
|
OnError("Ocurrió un error al calcular los meses de uso", ex)
|
|
End Try
|
|
|
|
|
|
Dim ObjPS As New ClsProductosServicios
|
|
If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then
|
|
Dim RowPS As DataRow = ObjPS.DtResultados.FiltroPrimero(String.Format("CvePS = {0}", CvePSAjuste))
|
|
If RowPS IsNot Nothing Then
|
|
PSAjuste = RowPS("PS").ToString()
|
|
MarcaPS = RowPS("Marca").ToString()
|
|
'SI ES MOTOBATERIAS PONER EL NOMBRE EN EL TIPO
|
|
If RowPS("CveClasificacion").ToString() = "20517" Then
|
|
BCIAjuste = PSAjuste
|
|
End If
|
|
End If
|
|
End If
|
|
ObjPS.Dispose()
|
|
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim DtDatos As New DataTable
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
|
|
'Informacion Distribuidor
|
|
If (CveClienteDistribuidor > 0) Then
|
|
|
|
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveClienteDistribuidor))
|
|
Dim CiudadEstado As String = ""
|
|
Dim Telefono As String = ""
|
|
Dim Nombre As String = ""
|
|
|
|
If DatosClienteSeleccionado IsNot Nothing Then
|
|
CiudadEstado = String.Format("{0}, {1}", DatosClienteSeleccionado("Ciudad"), DatosClienteSeleccionado("Estado"))
|
|
Telefono = DatosClienteSeleccionado("Telefono").ToString
|
|
Nombre = DatosClienteSeleccionado("Nombre").ToString
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreDistribuidor", Nombre))
|
|
params.Add(New ReportParameter("CiudadEstado", CiudadEstado))
|
|
params.Add(New ReportParameter("TelCliente", Telefono))
|
|
End If
|
|
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Consec", Consec))
|
|
params.Add(New ReportParameter("FolioAcuse", FolioGarantia))
|
|
|
|
'Informacion de Garantia o ajuste
|
|
params.Add(New ReportParameter("FechaInst", FechaAjuste.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Fecha", FechaReclamacion.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Defecto", TipoDefecto))
|
|
params.Add(New ReportParameter("MesesUso", MesesUso))
|
|
params.Add(New ReportParameter("PorcentajeAjuste", PorcentajeAjuste))
|
|
|
|
'Informacion Acumulador
|
|
params.Add(New ReportParameter("CodEnsamble", CodigoEnsamble))
|
|
params.Add(New ReportParameter("CodLinea", CodigoLinea))
|
|
params.Add(New ReportParameter("CodInspeccion", CodigoInspeccion))
|
|
params.Add(New ReportParameter("Tipo", BCIAjuste))
|
|
params.Add(New ReportParameter("Marca", MarcaPS))
|
|
params.Add(New ReportParameter("Etiqueta", Etiqueta))
|
|
|
|
'Informacion Vehiculo
|
|
params.Add(New ReportParameter("MarcaAuto", MarcaAuto))
|
|
params.Add(New ReportParameter("TipoAuto", ModeloAuto))
|
|
|
|
'Informacion Consumidor
|
|
If (CveCliente > 0) Then
|
|
|
|
Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))
|
|
|
|
Dim Nombre As String = ""
|
|
Dim Ciudad As String = ""
|
|
Dim Estado As String = ""
|
|
Dim Direccion As String = ""
|
|
Dim Telefono As String = ""
|
|
|
|
If DatosClienteSeleccionado IsNot Nothing Then
|
|
Nombre = DatosClienteSeleccionado("Nombre").ToString
|
|
Ciudad = DatosClienteSeleccionado("Ciudad").ToString
|
|
Estado = DatosClienteSeleccionado("Estado").ToString
|
|
Direccion = String.Format("{0} {1}{2} COL. {3}", DatosClienteSeleccionado("Direccion"), DatosClienteSeleccionado("NoInt"), DatosClienteSeleccionado("NoExt"), DatosClienteSeleccionado("Colonia"))
|
|
Telefono = DatosClienteSeleccionado("Telefono").ToString
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreCliente", Nombre))
|
|
params.Add(New ReportParameter("Direccion", Direccion))
|
|
params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
|
|
params.Add(New ReportParameter("TelConsumidor", Telefono))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Anio", Año))
|
|
params.Add(New ReportParameter("Comprobante", Comprobante))
|
|
params.Add(New ReportParameter("CodigoTD", CodigoTD))
|
|
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline")
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'E T I Q U E T A'"
|
|
Public Sub ImprimeEtiqueta(CvesProductos As String, CvePrecioLista As Integer)
|
|
Dim DtPrecios As DataTable = Nothing
|
|
|
|
Dim ObjVentas As New ClsProductosServicios
|
|
If ObjVentas.GetPSPrecios(CvePrecioLista, CvesProductos) AndAlso ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
DtPrecios = ObjVentas.DtResultados.Copy()
|
|
End If
|
|
ObjVentas.Dispose()
|
|
|
|
If DtPrecios IsNot Nothing Then
|
|
|
|
DtPrecios.Columns.Add(New DataColumn("CBBase64", GetType(String)))
|
|
|
|
For Each Row As DataRow In DtPrecios.Rows
|
|
Row("CBBase64") = System.Convert.ToBase64String(GeneraCodigoQR(Row("CodigoBarras").ToString(), 40, 150, 0, "CODE_39", True))
|
|
Next
|
|
|
|
Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/Etiqueta.mrt"
|
|
If System.IO.File.Exists(UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt") Then
|
|
DirectorioArchivo = UsuarioActual.Empresa.Ruta + "Formatos/Etiqueta.mrt"
|
|
End If
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
ImprimirPDFStimul(DirectorioArchivo, DtPrecios, params, "Precios")
|
|
End If
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "IMPRESION POLIZAS"
|
|
|
|
Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)
|
|
|
|
If Not CvePrePoliza > 0 Then Exit Sub
|
|
|
|
Dim ObjConta As New ClsContabilidad
|
|
|
|
If ObjConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
|
|
|
Dim drp As DataRow = ObjConta.DtResultados.FiltroPrimero("")
|
|
|
|
If drp IsNot Nothing Then
|
|
|
|
Dim DtDetalle As New DataTable
|
|
Dim CveTipoPolizaImp As Integer
|
|
Dim FolioPoliza As String
|
|
Dim Fecha As Date
|
|
Dim ConceptoPolizaImp As String
|
|
Dim CveMonedaImp As Integer
|
|
Dim TipoPolImp As String
|
|
Dim RutaReporte As String
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
|
|
CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero
|
|
ConceptoPolizaImp = drp("Concepto").ToString
|
|
FolioPoliza = drp("FolioPoliza").ToString
|
|
Fecha = drp("Fecha").ToString.ToDate
|
|
CveMonedaImp = drp("CveMoneda").ToString.ToEntero
|
|
Dim TipoPolizaString As String = If(CveTipoPolizaImp = 1, "I", If(CveTipoPolizaImp = 2, "E", "D")).ToString
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(282) = "1" Then
|
|
|
|
Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
|
|
RutaReporte = RutaFormatoReporte("PolizasResumen.rdlc")
|
|
|
|
If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
|
Dim dr As DataRow
|
|
DtDetalle = ObjConta.DtResultados
|
|
dr = DtDetalle.Rows(0)
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
|
|
params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Numero", FolioPoliza))
|
|
params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
|
|
params.Add(New ReportParameter("CodigoPostal", ""))
|
|
params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
|
|
params.Add(New ReportParameter("Folio", FolioPoliza))
|
|
params.Add(New ReportParameter("pImg", RutaImagenLogo))
|
|
End If
|
|
ObjConta.Dispose()
|
|
Else
|
|
RutaReporte = RutaFormatoReporte("Polizas.rdlc")
|
|
'If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, Fecha, Fecha, CVePrePoliza:=CvePrePoliza) Then
|
|
If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
|
|
|
'DtDetalle = ObjConta.DtResultados
|
|
'Dim dr As DataRow
|
|
DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
|
|
'dr = DtDetalle.Rows(0)
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
|
|
params.Add(New ReportParameter("Finicio", Fecha.ToShortDateString))
|
|
params.Add(New ReportParameter("FFin", Fecha.ToShortDateString))
|
|
params.Add(New ReportParameter("Numero", FolioPoliza))
|
|
params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
|
|
params.Add(New ReportParameter("CodigoPostal", ""))
|
|
|
|
If RutaReporte.Contains("Grales\Formatos\") Then
|
|
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(141) Then
|
|
params.Add(New ReportParameter("Fecha", Fecha.ToString("dd/MM/yyyy hh:mm:ss")))
|
|
Else
|
|
params.Add(New ReportParameter("Fecha", Fecha.ToShortDateString))
|
|
End If
|
|
If UsuarioActual.CveEmpresa.Contiene(119, 141, 193, 195, 197, 189) Then
|
|
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(drp("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
|
End If
|
|
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
End If
|
|
End If
|
|
ObjConta.Dispose()
|
|
End If
|
|
|
|
ImprimirPDF(RutaReporte, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
|
|
|
|
Else
|
|
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
|
End If
|
|
|
|
End If
|
|
|
|
ObjConta.Dispose()
|
|
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
Private Function GeneraCodigoQR(CodigoBarras As String, Alto As Integer, Largo As Integer, Margen As Integer, Formato As String, Optional PureBacode As Boolean = False) As Byte()
|
|
|
|
Dim barcodeWriter As New BarcodeWriter
|
|
Dim opciones As New ZXing.Common.EncodingOptions
|
|
Dim FormatoBar As New BarcodeFormat
|
|
'Dim Respuesta As Byte()
|
|
|
|
opciones.Height = Alto
|
|
opciones.Width = Largo
|
|
opciones.Margin = Margen
|
|
opciones.PureBarcode = PureBacode
|
|
barcodeWriter.Options = opciones
|
|
|
|
Select Case Formato
|
|
Case "All_1D"
|
|
barcodeWriter.Format = BarcodeFormat.All_1D
|
|
Exit Select
|
|
Case "AZTEC"
|
|
barcodeWriter.Format = BarcodeFormat.AZTEC
|
|
Exit Select
|
|
Case "CODABAR"
|
|
barcodeWriter.Format = BarcodeFormat.CODABAR
|
|
Exit Select
|
|
Case "CODE_128"
|
|
barcodeWriter.Format = BarcodeFormat.CODE_128
|
|
Exit Select
|
|
Case "CODE_39"
|
|
barcodeWriter.Format = BarcodeFormat.CODE_39
|
|
Exit Select
|
|
Case "CODE_93"
|
|
barcodeWriter.Format = BarcodeFormat.CODE_93
|
|
Exit Select
|
|
Case "DATA_MATRIX"
|
|
barcodeWriter.Format = BarcodeFormat.DATA_MATRIX
|
|
Exit Select
|
|
Case "EAN_13"
|
|
barcodeWriter.Format = BarcodeFormat.EAN_13
|
|
Exit Select
|
|
Case "EAN_8"
|
|
barcodeWriter.Format = BarcodeFormat.EAN_8
|
|
Exit Select
|
|
Case "IMB"
|
|
barcodeWriter.Format = BarcodeFormat.IMB
|
|
Exit Select
|
|
Case "ITF"
|
|
barcodeWriter.Format = BarcodeFormat.ITF
|
|
Exit Select
|
|
Case "MAXICODE"
|
|
barcodeWriter.Format = BarcodeFormat.MAXICODE
|
|
Exit Select
|
|
Case "MSI"
|
|
barcodeWriter.Format = BarcodeFormat.MSI
|
|
Exit Select
|
|
Case "PDF_417"
|
|
barcodeWriter.Format = BarcodeFormat.PDF_417
|
|
Exit Select
|
|
Case "PLESSEY"
|
|
barcodeWriter.Format = BarcodeFormat.PLESSEY
|
|
Exit Select
|
|
Case "QR_CODE"
|
|
barcodeWriter.Format = BarcodeFormat.QR_CODE
|
|
Exit Select
|
|
Case "RSS_14"
|
|
barcodeWriter.Format = BarcodeFormat.RSS_14
|
|
Exit Select
|
|
Case "RSS_EXPANDED"
|
|
barcodeWriter.Format = BarcodeFormat.RSS_EXPANDED
|
|
Exit Select
|
|
Case "UPC_A"
|
|
barcodeWriter.Format = BarcodeFormat.UPC_A
|
|
Exit Select
|
|
Case "UPC_E"
|
|
barcodeWriter.Format = BarcodeFormat.UPC_E
|
|
Exit Select
|
|
Case "UPC_EAN_EXTENSION"
|
|
barcodeWriter.Format = BarcodeFormat.UPC_EAN_EXTENSION
|
|
Exit Select
|
|
|
|
End Select
|
|
|
|
Dim imgCod As Drawing.Bitmap = barcodeWriter.Write(CodigoBarras)
|
|
Dim memoriStream As New System.IO.MemoryStream
|
|
imgCod.Save(memoriStream, Drawing.Imaging.ImageFormat.Bmp)
|
|
|
|
'Respuesta = Convert.ToBase64String(memoriStream.ToArray())
|
|
|
|
Return memoriStream.ToArray()
|
|
|
|
End Function
|
|
End Class
|