6214 lines
377 KiB
VB.net
6214 lines
377 KiB
VB.net
Option Strict On
|
|
Option Explicit On
|
|
|
|
Imports Extensiones
|
|
Imports System.Data
|
|
Imports Microsoft.Reporting.WebForms
|
|
Imports System.Xml
|
|
Imports System.IO
|
|
Imports iTextSharp.text
|
|
Imports iTextSharp.text.pdf
|
|
|
|
Imports Stimulsoft.Report
|
|
Imports Stimulsoft.Report.Components
|
|
Imports Stimulsoft.Report.Dictionary
|
|
Imports Stimulsoft.Report.Web
|
|
Imports Newtonsoft.Json.Linq
|
|
Imports System
|
|
Imports Microsoft.VisualBasic
|
|
|
|
Partial Class PopUpVerFactura
|
|
Inherits ClsPaginas
|
|
|
|
Private Shared missing As Object = System.Reflection.Missing.Value
|
|
|
|
#Region " PROPIEDADES "
|
|
Public Property DtMovimientos() As DataTable
|
|
Get
|
|
Return CType(ViewState("DtMovimientos"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtMovimientos") = value
|
|
End Set
|
|
End Property
|
|
Public Property DtDetalle() As DataTable
|
|
Get
|
|
Return CType(ViewState("DtDetalle"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("DtDetalle") = value
|
|
End Set
|
|
End Property
|
|
Public Property Opcion As String
|
|
Get
|
|
Return CType(ViewState("Opcion"), String)
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Opcion") = value
|
|
End Set
|
|
End Property
|
|
Public Property Param As String
|
|
Get
|
|
Return CType(ViewState("Param"), String)
|
|
End Get
|
|
Set(value As String)
|
|
ViewState("Param") = value
|
|
End Set
|
|
End Property
|
|
Private Property TmpDTOS As DataTable
|
|
Get
|
|
Return CType(ViewState("TmpDTOS"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TmpDTOS") = value
|
|
End Set
|
|
End Property
|
|
Private Property TmpDTMaterialesOS As DataTable
|
|
Get
|
|
Return CType(ViewState("TmpDTMaterialesOS"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("TmpDTMaterialesOS") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private ReadOnly Property DomicilioFiscalCompu As String
|
|
Get
|
|
Dim SisEmpresa As New ClsSisEmpresas()
|
|
Dim EmpInfo As DataRow
|
|
Dim domicilioFiscal As String = ""
|
|
If SisEmpresa.GetEmpresas(72, "-1", "-1", "-1", "-1") Then
|
|
EmpInfo = SisEmpresa.DtResultados.Rows(0)
|
|
domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
|
|
Return domicilioFiscal
|
|
End If
|
|
Return ""
|
|
End Get
|
|
End Property
|
|
'Private Property SessionPorImpresion As Boolean
|
|
' Get
|
|
' Return CBool(IfNull(ViewState("SessionPorImpresion"), False, ViewState("SessionPorImpresion")))
|
|
' End Get
|
|
' Set(value As Boolean)
|
|
' ViewState("SessionPorImpresion") = value
|
|
' End Set
|
|
'End Property
|
|
#End Region
|
|
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
'CREA EL OBJECTO USUARIO A PARTIR DEL TOKEN
|
|
If Request.Headers("ADSToken") IsNot Nothing Then
|
|
Dim UserParams As Hashtable = Parametros(Decripta((Request.Headers("ADSToken").ToString)))
|
|
Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
|
|
Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()
|
|
|
|
Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
|
|
|
|
If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
|
|
Context.Session("UsuarioSIG") = UsuarioToken
|
|
End If
|
|
End If
|
|
|
|
If Request("RFC") IsNot Nothing AndAlso Request("File") IsNot Nothing Then
|
|
Dim Path As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("File"))
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
|
|
ElseIf Request("RFC") IsNot Nothing AndAlso Request("FileV") IsNot Nothing Then
|
|
Dim Path As String = String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
|
|
ElseIf Request("File") IsNot Nothing AndAlso Request("TipoDocto") IsNot Nothing AndAlso Request("TipoArchivo") IsNot Nothing Then
|
|
Dim Path As String = "" ' String.Format("{0}Ventas\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("RFC"), Request("FileV"))
|
|
|
|
Select Case Request("TipoArchivo")
|
|
Case "PDF"
|
|
Path = String.Format("{0}PDF\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
|
|
Case "XML"
|
|
Path = String.Format("{0}XML\{1}\{2}", UsuarioActual.Empresa.Ruta, Request("TipoDocto"), Request("File"))
|
|
End Select
|
|
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = "xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
Else
|
|
If Request("File") IsNot Nothing Then
|
|
Dim Path As String = String.Format("{0}Layout\{1}", UsuarioActual.Empresa.Ruta, Request("File"))
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".txt", "text/plain", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" & Archivo.Name)
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End If
|
|
|
|
If Request("REPORTE") IsNot Nothing Then
|
|
CType(Session("DTPDF"), HtmlTable).ExportToPDF("Reporte")
|
|
End If
|
|
|
|
'OPCIONES
|
|
|
|
If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then
|
|
Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
|
|
If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
|
|
SeleccionaReporte(UrlParametros)
|
|
End If
|
|
End If
|
|
|
|
If Request("onlyPrint") IsNot Nothing Then
|
|
If Request("onlyPrint").ToString() = "Pallet" Then
|
|
imprimirpallet2(Request("CvePallet").ToString.ToEntero())
|
|
End If
|
|
If Request("onlyPrint").ToString() = "PalletCaja" Then
|
|
imprimirpallet(Request("CvePallet").ToString.ToEntero())
|
|
End If
|
|
|
|
If Request("onlyPrint").ToString() = "manifiesto" Then
|
|
imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
|
|
End If
|
|
If Request("onlyPrint").ToString() = "manifiestoRemision" Then
|
|
imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
|
|
End If
|
|
End If
|
|
|
|
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 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.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
|
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
|
NoEmbarque = row("NoEmbarque").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("NumeroTrailer"), 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()
|
|
|
|
'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.PA_Agro_Embarque_PalletGet(-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("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))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
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("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto")
|
|
End Sub
|
|
|
|
|
|
Private Sub imprimirManifiestoRemisionRemision(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 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.PA_AGRO_Embarque_ManifiestoGet(-1, -1, -1, cveEmbarqueManifiesto) And objnom.DtResultados.Rows.Count > 0 Then
|
|
Dim row As DataRow = objnom.DtResultados.Rows(0)
|
|
NoEmbarque = row("NoEmbarque").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"))
|
|
|
|
|
|
|
|
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("NumeroTrailer"), 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()
|
|
|
|
'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.PA_Agro_Embarque_PalletGet(-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("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"
|
|
ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Manifesto")
|
|
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.PA_Agro_Embarque_PalletGet(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 = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
|
|
Dim barcodebyte As Byte()
|
|
Using ms = 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("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet")
|
|
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.PA_Agro_Embarque_PalletGet(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("{0:00}", noPallet.ToEntero())
|
|
NumberBig = String.Format("{0:00}", 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 = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
|
|
Dim barcodebyte As Byte()
|
|
Using ms = 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 = "GPS/PalletEtiquetaCaja.rdlc"
|
|
'If CvetypeImpresion = 2 Then
|
|
' ruta = "GPS/PalletEtiqueta_2.rdlc"
|
|
'End If
|
|
ImprimirPDF(ruta, lrds, params, "Pallet Caja")
|
|
End Sub
|
|
#Region "U S U A R I O - T O K E N"
|
|
|
|
Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
|
|
|
|
Dim UsuarioToken As Usuario = Nothing
|
|
Dim ObjUsuarios As New ClsSisUsuarios
|
|
If ObjUsuarios.GetUsuarios(CveUsuario) Then
|
|
If ObjUsuarios.DtResultados.Rows.Count > 0 Then
|
|
Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
|
|
Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
|
|
UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
|
|
UsuarioToken.CveEmpresa = CveEmpresa
|
|
CreaObjetoEmpresa(UsuarioToken)
|
|
End If
|
|
End If
|
|
ObjUsuarios.Dispose()
|
|
Return UsuarioToken
|
|
End Function
|
|
Private Sub CreaObjetoEmpresa(ByRef UsuarioToken As Usuario)
|
|
|
|
Dim ObjEmpresa As New ClsSisEmpresas()
|
|
If ObjEmpresa.GetEmpresas(UsuarioToken.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioToken.CveEmpresa) Then
|
|
Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados
|
|
|
|
Dim EmpresasFuncionalidades As New HybridDictionary
|
|
For Each Row As Data.DataRow In dttmp.Rows
|
|
EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
|
|
Next
|
|
ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
|
|
End If
|
|
|
|
UsuarioToken.Empresa = ObjEmpresa.Empresa
|
|
End If
|
|
ObjEmpresa.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub SeleccionaReporte(UrlParametros As Hashtable)
|
|
|
|
'DESCARGA COMPROBANTE
|
|
If UrlParametros("OP").ToString = "IEComprobante" Then
|
|
DescargaComprobante(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA COMPRA
|
|
If UrlParametros("OP").ToString = "Fact" Then
|
|
DescargaFactura(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML O PDF DE LA FACTURA VENTA
|
|
If UrlParametros("OP").ToString = "FactVta" Then
|
|
DescargaFacturaVenta(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML TRASLADO
|
|
If UrlParametros("OP").ToString = "DesXmlTra" Then
|
|
DescargaXMLTraslado(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO PDF TRASLADO
|
|
If UrlParametros("OP").ToString = "DesPdfTra" Then
|
|
DescargaPDFTraslado(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML DE UTILIDADES
|
|
If UrlParametros("OP").ToString = "DesXmlNom" Then
|
|
DescargaXMLUtilidades(UrlParametros)
|
|
End If
|
|
|
|
'DESCARGA DOCUMENTO XML DE VIATICOS
|
|
If UrlParametros("OP").ToString = "DesXmlVIA" Then
|
|
DescargaXMLViaticos(UrlParametros)
|
|
End If
|
|
|
|
'IMPRIME REPORTE DE ENTRADA DE ALMACEN
|
|
If UrlParametros("OP").ToString = "Alm" Then
|
|
If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
|
|
CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
If UrlParametros("OP").ToString = "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 VALE
|
|
If UrlParametros("OP").ToString = "CAN" Then
|
|
If UrlParametros("CVEVTA") IsNot Nothing AndAlso UrlParametros("CVEVTA").ToString.ToEntero > 0 Then
|
|
ImprimeCancelacion(UrlParametros("CVEVTA").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME AFR
|
|
If UrlParametros("OP").ToString = "AFR" Then
|
|
If UrlParametros("CVEAFR") IsNot Nothing AndAlso UrlParametros("CVEAFR").ToString.ToEntero > 0 Then
|
|
If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then
|
|
ImprimirPDFAFR(UrlParametros("CVEAFR").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME AFR AGRUPADO
|
|
If UrlParametros("OP").ToString = "AFR2" Then
|
|
If UrlParametros("CVER") IsNot Nothing AndAlso UrlParametros("CVER").ToString.ToEntero > 0 Then
|
|
If UrlParametros("TIPO") IsNot Nothing AndAlso UrlParametros("TIPO").ToString <> "" Then
|
|
ImprimirPDFAFR2(UrlParametros("CVER").ToString.ToEntero, UrlParametros("TIPO").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME POLIZA
|
|
If UrlParametros("OP").ToString = "POL" Then
|
|
If UrlParametros("CVEPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPOLIZA").ToString.ToEntero > 0 Then
|
|
ImprimirPolizaPDF(UrlParametros("CVEPOLIZA").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
|
|
'IMPRIME FACTURA
|
|
If UrlParametros("OP").ToString = "VTA" Then
|
|
If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then
|
|
Dim Guardar As Boolean = UrlParametros("GUARDAR") IsNot Nothing AndAlso UrlParametros("GUARDAR").ToString() = "1"
|
|
|
|
imprimirFacturaVenta(UrlParametros("CVEVENTA").ToString.ToEntero, If(UrlParametros("PAG") IsNot Nothing AndAlso UrlParametros("PAG").ToString <> "", UrlParametros("PAG").ToString, "0"), GuardarPDF:=Guardar)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME GASTO DE CONTRATO
|
|
If UrlParametros("OP").ToString = "CONG" Then
|
|
If UrlParametros("CVECONTRATO") IsNot Nothing AndAlso UrlParametros("CVECONTRATO").ToString.ToEntero > 0 Then
|
|
ImprimeGastoContrato(UrlParametros("CVECONTRATO").ToString.ToEntero, UrlParametros("CVECONTRATOGASTO").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME FORMATO CICOVISA
|
|
If UrlParametros("OP").ToString = "CIC" Then
|
|
If UrlParametros("CVEVENTA") IsNot Nothing AndAlso UrlParametros("CVEVENTA").ToString.ToEntero > 0 Then
|
|
ImprimeFormatoCICOVISA(UrlParametros("CVEVENTA").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME CARTA PORTE
|
|
If UrlParametros("OP").ToString = "CARPO" Then
|
|
If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
|
|
ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
If UrlParametros("OP").ToString = "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
|
|
ImprimeCorte(UrlParametros("CVECORTE").ToString.ToEntero, UrlParametros("FORMATO").ToString)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME IE
|
|
If UrlParametros("OP").ToString = "IE" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa)
|
|
End If
|
|
End If
|
|
|
|
'Imprime Movimiento de IE
|
|
If UrlParametros("OP").ToString = "ImprimeMov" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME DEPOSITOS CAJA
|
|
If UrlParametros("OP").ToString = "DC" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
CargaDepositosCaja(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CUENTACAJA").ToString, UrlParametros("CUENTADEPO").ToString)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME IE2
|
|
If UrlParametros("OP").ToString = "IECHEQUE" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
ImprimirIE(UrlParametros("CVEIE").ToString.ToEntero, UsuarioActual.CveEmpresa)
|
|
End If
|
|
End If
|
|
|
|
'Descargar Archivo
|
|
If UrlParametros("OP").ToString = "OI" Then
|
|
If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then
|
|
CrearArchivo(UrlParametros("ARCHIVO").ToString)
|
|
End If
|
|
End If
|
|
|
|
'Archivo contrato
|
|
If UrlParametros("OP").ToString = "CONTRATO" Then
|
|
If UrlParametros("ARCHIVO") IsNot Nothing AndAlso UrlParametros("ARCHIVO").ToString.Length > 0 Then
|
|
CrearArchivoContratos(UrlParametros("ARCHIVO").ToString)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME ORDENES SERVICIO
|
|
If UrlParametros("OP").ToString = "OS" Then
|
|
If UrlParametros("CVEOS") IsNot Nothing AndAlso UrlParametros("CVEOS").ToString.ToEntero > 0 Then
|
|
GenerarPDFOS(UrlParametros("CVEOS").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME
|
|
If UrlParametros("OP").ToString = "P" Then
|
|
If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then
|
|
ImprimirReciboDePagos(UrlParametros("CVEIE").ToString.ToEntero, UrlParametros("CVEVENTA").ToString.ToEntero)
|
|
End If
|
|
End If
|
|
|
|
'IMPRIME COMPLEMENTO DE PAGO XML
|
|
If UrlParametros("OP").ToString = "CompP" Then
|
|
|
|
If UrlParametros("CVECOMPLEMENTOPAGO") IsNot Nothing AndAlso UrlParametros("CVECOMPLEMENTOPAGO").ToString <> "" AndAlso UrlParametros("EXT").ToString <> "" Then
|
|
|
|
Dim Path As String = String.Format("{0}{2}\Pag\{1}.{2}", UsuarioActual.Empresa.Ruta, UrlParametros("SERIEFOLIO"), UrlParametros("EXT").ToString)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If UrlParametros("EXT").ToString.ToUpper = "PDF" Then
|
|
If UrlParametros("CVECOMPLEMENTOPAGO").ToString.ToEntero > 0 Then
|
|
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
|
|
|
|
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
|
|
|
|
End Sub
|
|
|
|
Private Function Parametros(Cadena As String) As Hashtable
|
|
Dim P1() As String = Cadena.Split("&"c)
|
|
Dim Tmp As String
|
|
Dim P2() As String
|
|
|
|
Dim URLParametros As New Hashtable
|
|
|
|
For Each Tmp In P1
|
|
P2 = Tmp.Replace("%26%", "&").Split("="c)
|
|
URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
|
|
Next
|
|
Return URLParametros
|
|
End Function
|
|
|
|
#Region "OP = CORT - IMPRIMIR CORTE"
|
|
|
|
Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
|
|
Dim ObjVenta As New ClsVentas
|
|
Dim ObjPuntoVenta As New ClsPuntoVenta
|
|
Dim DtCortesVentasResumen As DataTable = Nothing
|
|
Dim DtCortesVentas As DataTable = Nothing
|
|
Dim Fecha = "", Nombre = ""
|
|
If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then
|
|
DtCortesVentasResumen = ObjVenta.DtResultados
|
|
|
|
End If
|
|
'If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then
|
|
' DtCortesVentas = ObjPuntoVenta.DtResultados
|
|
' If DtCortesVentas.Rows.Count > 0 Then
|
|
' Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0")
|
|
|
|
' Fecha = RowInfo("FechaInicial").ToString
|
|
' Nombre = RowInfo("Nombre").ToString
|
|
' End If
|
|
'End If
|
|
ObjVenta.Dispose()
|
|
ObjPuntoVenta.Dispose()
|
|
Dim FechaCorte As String = $" <b>Fecha fin:</b> {Fecha}"
|
|
Dim Usuario As String = $" <b>Usuario:</b> {Nombre}"
|
|
If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen}
|
|
lrds.Add(rds)
|
|
Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
|
|
lrds.Add(rds2)
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region " OP = FACTURA - IMPRIME COMPRA"
|
|
Private Sub DescargaComprobante(Parametros As Hashtable)
|
|
If Parametros("COMPROBANTE") IsNot Nothing Then
|
|
|
|
Dim Path As String = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, Parametros("COMPROBANTE"))
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/octet-stream"
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End Sub
|
|
Private Sub DescargaFactura(Parametros As Hashtable)
|
|
If Parametros("CVEFACTURA") IsNot Nothing AndAlso Parametros("CVEFACTURA").ToString.ToEntero > 0 Then
|
|
Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
|
|
Dim Path As String = String.Format("{0}Compras\{1}\{2}.{3}", UsuarioActual.Empresa.Ruta, Parametros("RFC").ToString, Parametros("CVEFACTURA").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = If(IO.Path.GetExtension(Archivo.Name) = ".xml", "application/xml", "application/pdf")
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS"
|
|
Private Sub DescargaXMLViaticos(Parametros As Hashtable)
|
|
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
|
|
Dim Exten As String = "Xml"
|
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", Parametros("TIPO").ToString, Parametros("SERIEFOLIO").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/xml"
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES"
|
|
Private Sub DescargaXMLUtilidades(Parametros As Hashtable)
|
|
If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
|
|
Dim Exten As String = "Xml"
|
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Utilidades", Parametros("SERIEFOLIO").ToString, Exten)
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
HttpContext.Current.Response.Clear()
|
|
HttpContext.Current.Response.ClearContent()
|
|
HttpContext.Current.Response.ContentType = "application/xml"
|
|
HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
|
|
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
|
HttpContext.Current.Response.TransmitFile(Path)
|
|
'HttpContext.Current.Response.Flush()
|
|
HttpContext.Current.Response.End()
|
|
End If
|
|
Archivo = Nothing
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
|
|
Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
Dim Dr As DataRow = Nothing
|
|
Dim ObjContratos As New ClsContratos
|
|
If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then
|
|
ObjContratos.Dispose()
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("Contrato", $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} "))
|
|
params.Add(New ReportParameter("Proveedor", If(ObjContratos.CveProveedor > 0, ObjContratos.RazonSocial.ToString, ObjContratos.NombreComercial.ToString)))
|
|
params.Add(New ReportParameter("FechaInicio", ObjContratos.FechaInicial.ToShortDateString))
|
|
params.Add(New ReportParameter("FechaFin", ObjContratos.FechaFinal.ToShortDateString))
|
|
params.Add(New ReportParameter("TipoContrato", ObjContratos.DtResultados.Rows(0)("ContratoTipo").ToString))
|
|
params.Add(New ReportParameter("TotalContrato", ObjContratos.ImporteTotal.FormatoNumero))
|
|
Dim Nombre As String = If($"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Length > 20, $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ".Substring(0, 20), $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ")
|
|
Dim SumaUtilidad As Double = 0
|
|
Dim SumaGasto As Double = 0
|
|
If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then
|
|
If ObjContratos.DtResultados.Rows.Count > 0 Then
|
|
SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL")
|
|
End If
|
|
End If
|
|
Dim dt As DataTable = Nothing
|
|
If ObjContratos.GetContratoGastos(CveContrato, 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()}"))
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
|
|
End Sub
|
|
#End Region
|
|
|
|
|
|
#Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
|
|
Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
|
|
If CveVenta > 0 Then
|
|
Dim ObjVentas As New ClsVentas
|
|
Dim SerieFolio As String = ""
|
|
Dim PedidoContrato As String = ""
|
|
Dim EnvioContacto As String = ""
|
|
Dim EnvioDireccion As String = ""
|
|
Dim Guia As String = ""
|
|
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, 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", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
|
|
params.Add(New ReportParameter("SerieFolio", SerieFolio))
|
|
params.Add(New ReportParameter("PedidoContrato", PedidoContrato))
|
|
params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
|
|
params.Add(New ReportParameter("Guia", Guia))
|
|
ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
|
|
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
|
|
If CveMovimiento > 0 Then
|
|
Dim ObjInv As New ClsInventarios
|
|
|
|
Dim SerieFolio As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim LugarFecha As String = ""
|
|
Dim Origen As String = ""
|
|
Dim Destino As String = ""
|
|
Dim Observaciones As String = ""
|
|
Dim Chofer As String = ""
|
|
Dim CveChofer As String
|
|
Dim Placa As String = ""
|
|
Dim Recibio As String = ""
|
|
Dim FechaEntrega As String = ""
|
|
Dim EspecifUnidad As String = ""
|
|
Dim ResponsableCarga As String = ""
|
|
Dim ResponsableRecibio As String = ""
|
|
Dim Identificacion As String = ""
|
|
Dim Domicilio As String = ""
|
|
Dim Telefono As String = ""
|
|
Dim Ciudad As String = ""
|
|
Dim Licencia As String = ""
|
|
|
|
|
|
|
|
|
|
|
|
Dim SBDireccionO As New StringBuilder()
|
|
Dim SBDireccionD As New StringBuilder()
|
|
|
|
If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
|
|
If ObjInv.DtResultados.Rows.Count > 0 Then
|
|
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
|
|
If Dr IsNot Nothing Then
|
|
SerieFolio = Dr("Folio").ToString
|
|
DomicilioSucursal = $"{Dr("CalleOrigen").ToString} {Dr("NoExtOrigen").ToString}, Col. {Dr("ColoniaOrigen").ToString} "
|
|
LugarFecha = $"{Dr("MunicipioOrigen").ToString}, {Dr("EstadoOrigen").ToString} {Dr("FechaMovto").ToString.ToDate.ToShortDateString}"
|
|
Origen = Dr("AlmacenOrigen").ToString
|
|
Destino = Dr("AlmacenDestino").ToString
|
|
Observaciones = Dr("Observaciones").ToString
|
|
CveChofer = Dr("CveChofer").ToString
|
|
|
|
|
|
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
|
|
|
|
|
|
Dim Dt As DataTable = Nothing
|
|
If ObjInv.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
|
Dt = ObjInv.DtResultados
|
|
End If
|
|
ObjInv.Dispose()
|
|
If Dt.Rows.Count > 0 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
|
|
'params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), "")))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
|
|
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
|
|
params.Add(New ReportParameter("SerieFolio", SerieFolio))
|
|
params.Add(New ReportParameter("DomicilioSucursal", DomicilioSucursal))
|
|
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
|
|
params.Add(New ReportParameter("LugarFecha", LugarFecha))
|
|
params.Add(New ReportParameter("Origen", Origen))
|
|
params.Add(New ReportParameter("Destino", Destino))
|
|
params.Add(New ReportParameter("Remitente", ""))
|
|
params.Add(New ReportParameter("Destinatario", ""))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("Chofer", Chofer))
|
|
params.Add(New ReportParameter("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/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
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
|
|
|
|
Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer)
|
|
If CveTimbre > 0 Then
|
|
|
|
'01 Autotransporte Federal
|
|
'02 Transporte Marítimo
|
|
'03 Transporte Aéreo
|
|
'04 Transporte Ferroviario
|
|
'05 Ducto
|
|
Dim HtTransporte As New Hashtable()
|
|
HtTransporte.Add("01", "Autotransporte Federal")
|
|
HtTransporte.Add("02", "Transporte Marítimo")
|
|
HtTransporte.Add("03", "Transporte Aéreo")
|
|
HtTransporte.Add("04", "Transporte Ferroviario")
|
|
HtTransporte.Add("05", "Ducto")
|
|
|
|
'EMISOR
|
|
Dim LugarExpedicion As String = ""
|
|
Dim ImgCBB As String = ""
|
|
'COMPROBANTE
|
|
Dim SerieFolio As String = ""
|
|
Dim Telefono As String = ""
|
|
Dim SubTotal As Decimal = 0
|
|
Dim Descuentos As Decimal = 0
|
|
Dim Total As Decimal = 0
|
|
'DATOS DEL CLIENTE
|
|
Dim ClienteRFC As String = ""
|
|
Dim ClienteNombre As String = ""
|
|
Dim ClienteUsoCFDi As String = ""
|
|
|
|
'TRANSPORTE
|
|
Dim MedioTransporte As String = ""
|
|
Dim TransporteInternacional As String = ""
|
|
Dim PermisoSTCC As String = ""
|
|
Dim NumPermiso As String = ""
|
|
Dim AseguradoraRespCivil As String = ""
|
|
Dim NumPolizaSeguroRespCivil As String = ""
|
|
Dim NombreAseguradoraMedioAmbiente As String = ""
|
|
Dim NumPolizaSeguroMedioAmbiente As String = ""
|
|
Dim NombreAseguradoraCarga As String = ""
|
|
Dim NumPolizaSeguroCarga As String = ""
|
|
|
|
Dim RemolquePlaca1 As String = ""
|
|
Dim RemolquePlaca2 As String = ""
|
|
Dim RemolqueSubtimo1 As String = ""
|
|
Dim RemolqueSubtimo2 As String = ""
|
|
|
|
Dim PlacaVM As String = ""
|
|
Dim AnioModeloVM As String = ""
|
|
'TIMBRADO
|
|
Dim FolioFiscal As String = ""
|
|
Dim NoCertificadoSAT As String = ""
|
|
Dim CadenaOriginal As String = ""
|
|
Dim NoSerieCertificado As String = ""
|
|
Dim FechaCertificacion As DateTime = Nothing
|
|
Dim SelloCFDi As String = ""
|
|
Dim SelloSAT As String = ""
|
|
Dim TipoDocto As String = ""
|
|
|
|
Dim ObjInv As New ClsGenerales
|
|
|
|
If ObjInv.GetGralTimbre(CveTimbre, "-1", MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1) Then
|
|
If ObjInv.DtResultados.Rows.Count > 0 Then
|
|
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
|
|
If Dr IsNot Nothing Then
|
|
SerieFolio = Dr("SerieFolio").ToString
|
|
Telefono = Dr("FiguraTelefono").ToString
|
|
TipoDocto = Dr("TipoDocto").ToString
|
|
End If
|
|
End If
|
|
End If
|
|
ObjInv.Dispose()
|
|
|
|
Dim DtConceptos As New DataTable()
|
|
DtConceptos.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
|
|
DtConceptos.Columns.Add(New DataColumn("Unidad", GetType(String)))
|
|
DtConceptos.Columns.Add(New DataColumn("Descripcion", GetType(String)))
|
|
DtConceptos.Columns.Add(New DataColumn("ValorUnitario", GetType(Decimal)))
|
|
DtConceptos.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
|
|
|
|
Dim DtUbicaciones As New DataTable()
|
|
DtUbicaciones.Columns.Add(New DataColumn("Distancia", GetType(String)))
|
|
DtUbicaciones.Columns.Add(New DataColumn("TipoUbicacion", GetType(String)))
|
|
DtUbicaciones.Columns.Add(New DataColumn("RFC", GetType(String)))
|
|
DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String)))
|
|
DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime)))
|
|
DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String)))
|
|
|
|
Dim DtMercancias As New DataTable()
|
|
DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
|
|
DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
|
|
DtMercancias.Columns.Add(New DataColumn("Descripcion", GetType(String)))
|
|
DtMercancias.Columns.Add(New DataColumn("PesoEnKg", GetType(String)))
|
|
|
|
DtMercancias.Columns.Add(New DataColumn("CveMaterialPeligroso", GetType(String)))
|
|
DtMercancias.Columns.Add(New DataColumn("Embalaje", GetType(String)))
|
|
|
|
Dim DtOperadores As New DataTable()
|
|
DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
|
|
DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
|
|
DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))
|
|
|
|
Dim DTRelacionados As New DataTable()
|
|
DTRelacionados.Columns.Add(New DataColumn("Relacion", GetType(String)))
|
|
DTRelacionados.Columns.Add(New DataColumn("UUID", GetType(String)))
|
|
|
|
|
|
Dim XMLDoc As New XmlDocument
|
|
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", TipoDocto, String.Format("{0}", SerieFolio), "xml")
|
|
Dim Archivo As New System.IO.FileInfo(Path)
|
|
|
|
If Archivo.Exists Then
|
|
Try
|
|
XMLDoc.Load(Path)
|
|
Catch ex As Exception
|
|
Try
|
|
Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1"))
|
|
XMLDoc.Load(oReader)
|
|
oReader.Dispose()
|
|
Catch ex2 As Exception
|
|
GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
|
|
End Try
|
|
End Try
|
|
End If
|
|
|
|
If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then
|
|
|
|
Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
|
|
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
|
|
|
|
Dim nodo As XmlNode = XMLDoc.DocumentElement
|
|
|
|
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
|
|
Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
|
|
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
|
|
|
|
If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
|
|
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")
|
|
namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
|
|
namespaces.AddNamespace("cartaporte20", "http://www.sat.gob.mx/CartaPorte20")
|
|
|
|
Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)
|
|
If nodeComprobante IsNot Nothing Then
|
|
LugarExpedicion = ValorXML(nodeComprobante, "LugarExpedicion")
|
|
SubTotal = ValorXML(nodeComprobante, "SubTotal").ToDecimal()
|
|
Total = ValorXML(nodeComprobante, "Total").ToDecimal()
|
|
End If
|
|
|
|
Dim nodeCliente As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)
|
|
|
|
If nodeCliente IsNot Nothing Then
|
|
ClienteRFC = ValorXML(nodeCliente, "RFC")
|
|
ClienteNombre = ValorXML(nodeCliente, "Nombre")
|
|
Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI")
|
|
ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI)))
|
|
End If
|
|
|
|
Dim nodeConceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
|
|
|
|
If nodeConceptos IsNot Nothing Then
|
|
For Each node As XmlNode In nodeConceptos.ChildNodes
|
|
Dim Row As DataRow = DtConceptos.NewRow
|
|
|
|
Row("Cantidad") = ValorXML(node, "Cantidad", "")
|
|
Row("Unidad") = ValorXML(node, "Unidad", "")
|
|
Row("Descripcion") = ValorXML(node, "Descripcion", "")
|
|
Row("ValorUnitario") = ValorXML(node, "ValorUnitario", "")
|
|
Row("Importe") = ValorXML(node, "Importe", "")
|
|
|
|
DtConceptos.Rows.Add(Row)
|
|
Next
|
|
End If
|
|
|
|
|
|
Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces)
|
|
|
|
Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte20"), namespaces)
|
|
If nodeCartaPorte IsNot Nothing Then
|
|
TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
|
|
End If
|
|
|
|
Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Autotransporte", "cartaporte20"), namespaces)
|
|
If nodeAutotransporteFederal IsNot Nothing Then
|
|
PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "")
|
|
NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
|
|
End If
|
|
|
|
Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte20"), namespaces)
|
|
If nodeIdentificacionVehicular IsNot Nothing Then
|
|
PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "")
|
|
AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "")
|
|
End If
|
|
|
|
Dim nodeSeguros As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Seguros", "cartaporte20"), namespaces)
|
|
If nodeIdentificacionVehicular IsNot Nothing Then
|
|
AseguradoraRespCivil = ValorXML(nodeSeguros, "AseguraRespCivil", "")
|
|
NumPolizaSeguroRespCivil = ValorXML(nodeSeguros, "PolizaRespCivil", "")
|
|
|
|
'Por Definir de donde sale
|
|
NombreAseguradoraMedioAmbiente = ValorXML(nodeSeguros, "AseguraMedAmbiente", "")
|
|
NumPolizaSeguroMedioAmbiente = ValorXML(nodeSeguros, "PolizaMedAmbiente", "")
|
|
NombreAseguradoraCarga = ValorXML(nodeSeguros, "AseguraCarga", "")
|
|
NumPolizaSeguroCarga = ValorXML(nodeSeguros, "PolizaCarga", "")
|
|
End If
|
|
|
|
|
|
Dim nodeRemolques As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:Remolques", "cartaporte20"), namespaces)
|
|
|
|
If nodeRemolques IsNot Nothing Then
|
|
If nodeRemolques.ChildNodes.Count = 1 Then
|
|
RemolquePlaca1 = ValorXML(nodeRemolques.ChildNodes(0), "Placa", "")
|
|
RemolqueSubtimo1 = ValorXML(nodeRemolques.ChildNodes(0), "SubTipoRem", "")
|
|
ElseIf nodeRemolques.ChildNodes.Count > 1 Then
|
|
RemolquePlaca1 = ValorXML(nodeRemolques.ChildNodes(0), "Placa", "")
|
|
RemolqueSubtimo1 = ValorXML(nodeRemolques.ChildNodes(0), "SubTipoRem", "")
|
|
RemolquePlaca2 = ValorXML(nodeRemolques.ChildNodes(1), "Placa", "")
|
|
RemolqueSubtimo2 = ValorXML(nodeRemolques.ChildNodes(1), "SubTipoRem", "")
|
|
End If
|
|
End If
|
|
|
|
'Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte20"), namespaces)
|
|
'If nodeFiguraTransporte IsNot Nothing Then
|
|
' Dim CveTransporte As String = ValorXML(nodeFiguraTransporte, "TipoFigura", "")
|
|
' MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
|
|
'End If
|
|
|
|
Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte20"), namespaces)
|
|
For Each node As XmlNode In nodeMercancias
|
|
Dim Row As DataRow = DtMercancias.NewRow
|
|
|
|
Row("Cantidad") = ValorXML(node, "Cantidad", "")
|
|
Row("UnidadMedida") = ValorXML(node, "Unidad", "")
|
|
Row("Descripcion") = ValorXML(node, "Descripcion", "")
|
|
Row("PesoEnKg") = ValorXML(node, "PesoEnKg", "")
|
|
|
|
Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "")
|
|
Row("Embalaje") = ValorXML(node, "Embalaje", "")
|
|
|
|
DtMercancias.Rows.Add(Row)
|
|
Next
|
|
|
|
Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:TiposFigura", "cartaporte20"), namespaces)
|
|
For Each node As XmlNode In nodeOperadores
|
|
Dim Row As DataRow = DtOperadores.NewRow
|
|
|
|
Row("RFC") = ValorXML(node, "RFCFigura", "")
|
|
Row("NumLicencia") = ValorXML(node, "NumLicencia", "")
|
|
Row("NombreOperador") = ValorXML(node, "NombreFigura", "")
|
|
|
|
DtOperadores.Rows.Add(Row)
|
|
Next
|
|
|
|
|
|
Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte20"), namespaces)
|
|
For Each node As XmlNode In nodeUbicaciones
|
|
Dim Row As DataRow = DtUbicaciones.NewRow
|
|
|
|
Row("Distancia") = ValorXML(node, "DistanciaRecorrida", "")
|
|
Row("TipoUbicacion") = ValorXML(node, "TipoUbicacion", "")
|
|
Row("FechaHoraSalida") = ValorXML(node, "FechaHoraSalidaLlegada", "")
|
|
Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "")
|
|
Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "")
|
|
|
|
Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
|
|
If nodeDomicilio IsNot Nothing Then
|
|
|
|
Dim Estado As String = ""
|
|
Dim Municipio As String = ""
|
|
Dim Colonia As String = ""
|
|
Dim calle = ValorXML(nodeDomicilio, "Calle", "")
|
|
Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "")
|
|
|
|
Dim dr As DataRow = GlobalDTGralColonias(ValorXML(nodeDomicilio, "Estado", ""), ValorXML(nodeDomicilio, "Municipio", ""), ValorXML(nodeDomicilio, "Colonia", "")).FiltroPrimero("")
|
|
If dr IsNot Nothing Then
|
|
Estado = dr("NombreEstado").ToString
|
|
Municipio = dr("NombreMunicipio").ToString
|
|
Colonia = dr("NombreAsentamiento").ToString
|
|
End If
|
|
Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP)
|
|
End If
|
|
|
|
|
|
DtUbicaciones.Rows.Add(Row)
|
|
Next
|
|
|
|
|
|
|
|
Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
|
|
|
|
If nodeRelacion IsNot Nothing Then
|
|
Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion")
|
|
Dim Relacion As String = ""
|
|
|
|
Select Case RelacionCodigo
|
|
Case "01"
|
|
Relacion = "01 - Nota de crédito de los documentos relacionados"
|
|
Case "02"
|
|
Relacion = "02 - Nota de débito de los documentos relacionados"
|
|
Case "03"
|
|
Relacion = "03 - Devolución de mercancía sobre facturas o traslados previos"
|
|
Case "04"
|
|
Relacion = "04 - Sustitución de los CFDI previos"
|
|
Case "05"
|
|
Relacion = "05 - Traslados de mercancias facturados previamente"
|
|
Case "06"
|
|
Relacion = "06 - Factura generada por los traslados previos"
|
|
Case "07"
|
|
Relacion = "07 - CFDI por aplicación de anticipo"
|
|
Case "08"
|
|
Relacion = "08 - Factura generada por pagos en parcialidades"
|
|
Case "09"
|
|
Relacion = "09 - Factura generada por pagos diferidos"
|
|
|
|
End Select
|
|
|
|
Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
|
|
For Each node As XmlNode In nodoDocumentosRealcionados
|
|
|
|
Dim nRow As DataRow = DTRelacionados.NewRow
|
|
nRow("Relacion") = Relacion
|
|
|
|
Try
|
|
Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
|
|
nRow("UUID") = ValorXML(nodoUUID, "UUID", "")
|
|
Catch ex As Exception
|
|
nRow("UUID") = ""
|
|
End Try
|
|
|
|
DTRelacionados.Rows.Add(nRow)
|
|
Next
|
|
End If
|
|
|
|
|
|
|
|
|
|
Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
|
|
If nodeTFD IsNot Nothing Then
|
|
FolioFiscal = ValorXML(nodeTFD, "UUID", "")
|
|
NoSerieCertificado = ValorXML(nodeTFD, "NoCertificadoSAT", "")
|
|
FechaCertificacion = ValorXML(nodeTFD, "FechaTimbrado", "").ToDateTime
|
|
SelloCFDi = ValorXML(nodeTFD, "SelloCFD", "")
|
|
SelloSAT = ValorXML(nodeTFD, "SelloSAT", "")
|
|
NoCertificadoSAT = ValorXML(nodeTFD, "NoCertificadoSAT", "")
|
|
|
|
CadenaOriginal = "||1.0|" + FolioFiscal + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|" + SelloCFDi + "|" + NoSerieCertificado + "||"
|
|
End If
|
|
|
|
If Not ImagenCBB.Exists Then
|
|
Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
|
|
CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB)
|
|
End If
|
|
|
|
|
|
ImagenCBB = New System.IO.FileInfo(RutaCBB)
|
|
|
|
If ImagenCBB.Exists Then
|
|
ImgCBB = String.Format("file://{0}", ImagenCBB.FullName)
|
|
Else
|
|
ImgCBB = ""
|
|
End If
|
|
|
|
End If
|
|
|
|
If DtConceptos.Rows.Count > 0 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
'EMPRESA
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
|
|
params.Add(New ReportParameter("SerieFolio", SerieFolio))
|
|
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
|
|
params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion))
|
|
'CLIENTE
|
|
params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
|
|
params.Add(New ReportParameter("ClienteRFC", ClienteRFC))
|
|
params.Add(New ReportParameter("UsoCFDi", ClienteUsoCFDi))
|
|
'TRANSPORTE
|
|
params.Add(New ReportParameter("MedioTransporte", MedioTransporte))
|
|
params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional))
|
|
params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC))
|
|
params.Add(New ReportParameter("NumPermiso", NumPermiso))
|
|
|
|
params.Add(New ReportParameter("Aseguradora", AseguradoraRespCivil))
|
|
params.Add(New ReportParameter("NumPoliza", NumPolizaSeguroRespCivil))
|
|
|
|
params.Add(New ReportParameter("NombreAseguradoraMedioAmbiente", NombreAseguradoraMedioAmbiente))
|
|
params.Add(New ReportParameter("NumPolizaSeguroMedioAmbiente", NumPolizaSeguroMedioAmbiente))
|
|
|
|
params.Add(New ReportParameter("NombreAseguradoraCarga", NombreAseguradoraCarga))
|
|
params.Add(New ReportParameter("NumPolizaSeguroCarga", NumPolizaSeguroCarga))
|
|
|
|
params.Add(New ReportParameter("PlacaVM", PlacaVM))
|
|
params.Add(New ReportParameter("AnioVM", AnioModeloVM))
|
|
'TIMBRADO
|
|
params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
|
|
params.Add(New ReportParameter("QR", ImgCBB))
|
|
params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
|
|
params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT))
|
|
params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))
|
|
params.Add(New ReportParameter("SerieCertificadoSAT", NoSerieCertificado))
|
|
params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString("dd/MM/yyyy HH:mm:ss")))
|
|
params.Add(New ReportParameter("SelloSAT", SelloSAT))
|
|
'TOTALES
|
|
params.Add(New ReportParameter("SubTotal", SubTotal.ToString()))
|
|
params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
|
|
params.Add(New ReportParameter("Total", Total.ToString()))
|
|
|
|
params.Add(New ReportParameter("RemolquePlaca1", RemolquePlaca1))
|
|
params.Add(New ReportParameter("RemolqueSubtimo1", RemolqueSubtimo1))
|
|
params.Add(New ReportParameter("RemolquePlaca2", RemolquePlaca2))
|
|
params.Add(New ReportParameter("RemolqueSubtimo2", RemolqueSubtimo2))
|
|
|
|
|
|
' [@CertificadoContribuyente]
|
|
'[@CadenaOriginal]
|
|
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
|
|
Dim rds As New ReportDataSource
|
|
rds.Name = "DataSet1"
|
|
rds.Value = DtConceptos
|
|
lrds.Add(rds)
|
|
|
|
Dim rds2 As New ReportDataSource
|
|
rds2.Name = "DataSet2"
|
|
rds2.Value = DtUbicaciones
|
|
lrds.Add(rds2)
|
|
|
|
Dim rds3 As New ReportDataSource
|
|
rds3.Name = "DataSet3"
|
|
rds3.Value = DtMercancias
|
|
lrds.Add(rds3)
|
|
|
|
Dim rds4 As New ReportDataSource
|
|
rds4.Name = "DataSet4"
|
|
rds4.Value = DtOperadores
|
|
lrds.Add(rds4)
|
|
|
|
|
|
Dim rds5 As New ReportDataSource
|
|
rds5.Name = "DataSet5"
|
|
rds5.Value = DTRelacionados
|
|
lrds.Add(rds5)
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, SerieFolio)
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#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 = 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 = Now
|
|
ObjFactura.CvePrePoliza = -1
|
|
ObjFactura.FechaPago = Now
|
|
ObjFactura.MotivoDescuento = ""
|
|
ObjFactura.Observaciones = ""
|
|
ObjFactura.FechaEjecucion = Now
|
|
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 = Now
|
|
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
|
|
Public Sub imprimirFacturaVenta(CveVenta As Integer, AplicaPagare As String, Optional GuardarPDF As Boolean = False)
|
|
Dim ObjVentas As New ClsVentas
|
|
Dim Vta As Modelos.Factura = Nothing
|
|
|
|
Dim TmpDTImpuestos = New DataTable
|
|
TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
|
|
TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
|
|
TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
|
|
|
|
Dim TmpDTImpuestosIVAIEPS = New DataTable
|
|
TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String))
|
|
TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String))
|
|
TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
|
|
TmpDTImpuestosIVAIEPS.Columns.Add("Orden", GetType(Integer))
|
|
|
|
If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
Dim dtVentas As DataTable = ObjVentas.DtResultados
|
|
|
|
' se rellenan los campos de la factura
|
|
Vta = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.Factura)
|
|
|
|
Vta.MonedaAbreviatura = dtVentas(0)("Abreviatura").ToString
|
|
'se rellena la sucursal
|
|
'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
|
|
Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()
|
|
|
|
Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
|
|
|
|
Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
|
|
'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
|
|
Vta.Cliente = New Modelos.ClienteModel
|
|
Vta.Cliente.Nombre = dtVentas(0)("ClienteNombre").ToString
|
|
Vta.Cliente.Telefono = dtVentas(0)("Telefono").ToString
|
|
Vta.Cliente.Direccion = dtVentas(0)("ClienteDireccion").ToString
|
|
Vta.Cliente.CP = dtVentas(0)("CPCliente").ToString
|
|
Vta.Cliente.Ciudad = dtVentas(0)("ClienteCiudad").ToString
|
|
Vta.Cliente.Localidad = dtVentas(0)("ClienteLocalidad").ToString
|
|
Vta.Cliente.Estado = dtVentas(0)("ClienteEstado").ToString
|
|
Vta.Cliente.Pais = dtVentas(0)("ClientePais").ToString
|
|
Vta.Cliente.RFC = dtVentas(0)("ClienteRFC").ToString
|
|
Vta.Cliente.Colonia = dtVentas(0)("ColoniaCliente").ToString
|
|
Vta.AtencionA = dtVentas(0)("AtencionA").ToString
|
|
Vta.Cliente.NoExt = dtVentas(0)("ClienteNoExt").ToString
|
|
Vta.Cliente.NoInt = dtVentas(0)("ClienteNoInt").ToString
|
|
Vta.Cliente.Codigo = dtVentas(0)("ClienteCodigo").ToString
|
|
Vta.Cliente.Mail = dtVentas(0)("Mail").ToString
|
|
Vta.Cliente.MailCotizacion = dtVentas(0)("SucClienteCorreo").ToString
|
|
Vta.RefDocto = dtVentas(0)("Ref").ToString
|
|
Vta.CveVenta = dtVentas(0)("CveVenta").ToString.ToEntero
|
|
Vta.NumeroCuenta = dtVentas(0)("NumCtaPago").ToString
|
|
Vta.Version = dtVentas(0)("Version").ToString
|
|
|
|
Vta.NumeroContrato = dtVentas(0)("NumeroContrato").ToString
|
|
Vta.DescripcionContrato = dtVentas(0)("DescripcionContrato").ToString
|
|
Vta.NumeroDescripcionContrato = If($"{dtVentas(0)("NumeroContrato").ToString} - {dtVentas(0)("NumeroLicitacion").ToString}" = " - ", "", $"{dtVentas(0)("NumeroContrato").ToString} {If(dtVentas(0)("NumeroLicitacion").ToString = "", "", $" - Licitación: {dtVentas(0)("NumeroLicitacion").ToString}")}")
|
|
|
|
Vta.PedidoContrato = If(dtVentas(0)("PedidoContrato").ToString = "", Vta.NumeroDescripcionContrato, $"{dtVentas(0)("PedidoContrato").ToString} {If(Vta.NumeroDescripcionContrato = "", "", $" / {Vta.NumeroDescripcionContrato}") }")
|
|
Vta.Kilometraje = If(dtVentas(0)("Kilometraje").ToString = "", -1, dtVentas(0)("Kilometraje").ToString.ToDecimal)
|
|
'Vta.PedidoContrato = dtVentas(0)("PedidoContrato").ToString
|
|
|
|
Vta.ClienteSucursal = New Modelos.SucursalModel
|
|
Vta.ClienteSucursal.Direccion = dtVentas(0)("SucClienteDireccion").ToString
|
|
Vta.ClienteSucursal.NoExt = dtVentas(0)("SucClienteNoExt").ToString
|
|
Vta.ClienteSucursal.NoInt = dtVentas(0)("SucClienteNoInt").ToString
|
|
Vta.ClienteSucursal.Colonia = dtVentas(0)("SucClienteColonia").ToString
|
|
Vta.ClienteSucursal.CP = dtVentas(0)("SucClienteCP").ToString
|
|
Vta.ClienteSucursal.Municipio = dtVentas(0)("SucClienteCiudad").ToString
|
|
Vta.ClienteSucursal.Estado = dtVentas(0)("SucClienteEstado").ToString
|
|
Vta.ClienteSucursal.Pais = dtVentas(0)("SucClientePais").ToString
|
|
Vta.ClienteSucursal.Localidad = dtVentas(0)("SucClienteLocalidad").ToString
|
|
Vta.ClienteSucursal.CorreoSucursal = dtVentas(0)("SucClienteCorreo").ToString
|
|
Vta.ClienteSucursal.TelefonoSucursal = dtVentas(0)("SucClienteTelefono").ToString
|
|
Vta.ClienteSucursal.Sucursal = dtVentas(0)("SucursalCliente").ToString
|
|
Vta.ClienteSucursal.ImprimeNombreSucursal = dtVentas(0)("ImprimeNombreSucursal").ToString
|
|
|
|
Vta.EnviarA = New Modelos.EnviarAModel
|
|
Vta.EnviarA.CveDireccionEnvio = dtVentas(0)("CveDireccionEnvio").ToString.ToEntero
|
|
Vta.EnviarA.EnvioDireccion = dtVentas(0)("EnvioDireccion").ToString
|
|
Vta.EnviarA.EnvioColonia = dtVentas(0)("EnvioColonia").ToString
|
|
Vta.EnviarA.EnvioCiudad = dtVentas(0)("EnvioCiudad").ToString
|
|
Vta.EnviarA.EnvioEstado = dtVentas(0)("EnvioEstado").ToString
|
|
Vta.EnviarA.EnvioCP = dtVentas(0)("EnvioCP").ToString
|
|
Vta.EnviarA.EnvioTel = dtVentas(0)("EnvioTel").ToString
|
|
|
|
Vta.EnviarA.EnvioNoExt = dtVentas(0)("EnvioNoExt").ToString
|
|
Vta.EnviarA.EnvioNoInt = dtVentas(0)("EnvioNoInt").ToString
|
|
Vta.EnviarA.EnvioContacto = dtVentas(0)("EnvioContacto").ToString
|
|
Vta.EnviarA.EnvioDepartamento = dtVentas(0)("EnvioDepartamento").ToString
|
|
|
|
'Vta.EnviarA.EnvioPedidoContrato = dtVentas(0)("EnvioPedidoContrato").ToString
|
|
|
|
'INE COMPLEMENTO
|
|
If dtVentas(0)("TipoComite").ToString <> "" Then
|
|
Dim INE As New Modelos.ComplementoINE
|
|
INE.INETipoComite = dtVentas(0)("TipoComite").ToString
|
|
INE.INETipoProceso = dtVentas(0)("TipoProceso").ToString
|
|
INE.INEIdContabilidad = dtVentas(0)("IdContabilidad").ToString.ToEntero
|
|
Vta.ComplementoINE = INE
|
|
End If
|
|
|
|
|
|
Dim DR As DataRow = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("SubTotal").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Subtotal" : DR("Importe") = dtVentas(0)("SubTotal").ToString.ToDouble : DR("Orden") = 10 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("Descuento").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Descuentos" : DR("Importe") = dtVentas(0)("Descuento").ToString.ToDouble : DR("Orden") = 20 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("Amortizacion").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Amort.Ant" : DR("Importe") = dtVentas(0)("Amortizacion").ToString.ToDouble : DR("Orden") = 30 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("SubTotal").ToString.ToDouble <> (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) Then DR("ImpuestoLocal") = "SubTotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) : DR("Orden") = 40 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("IVA").ToString.ToDouble >= 0 Then DR("ImpuestoLocal") = "IVA" : DR("Importe") = dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 50 : TmpDTImpuestos.Rows.Add(DR)
|
|
|
|
'solo para eclipse, que muesre un subtotal debajo de IVA
|
|
If UsuarioActual.CveEmpresa = 15 Then DR = TmpDTImpuestos.NewRow() : DR("ImpuestoLocal") = "Subtotal2" : DR("Importe") = (dtVentas(0)("SubTotal").ToString.ToDouble - dtVentas(0)("Descuento").ToString.ToDouble - dtVentas(0)("Amortizacion").ToString.ToDouble) + dtVentas(0)("IVA").ToString.ToDouble : DR("Orden") = 51 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("RetIVA").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.IVA" : DR("Importe") = dtVentas(0)("RetIVA").ToString.ToDouble : DR("Orden") = 60 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
If dtVentas(0)("RetISR").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Ret.ISR" : DR("Importe") = dtVentas(0)("RetISR").ToString.ToDouble : DR("Orden") = 70 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
|
|
If dtVentas(0)("IEPS").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "IEPS" : DR("Importe") = dtVentas(0)("IEPS").ToString.ToDouble : DR("Orden") = 80 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
|
|
If dtVentas(0)("Total").ToString.ToDouble <> 0 Then DR("ImpuestoLocal") = "Total" : DR("Importe") = dtVentas(0)("Total").ToString.ToDouble : DR("Orden") = 100 : TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
|
|
If ObjVentas.GetVentaDetalle(CveVenta) Then 'Obtenemos el Detalle de la Oorden de Compra
|
|
Vta.DtDetalle = ObjVentas.DtResultados
|
|
End If
|
|
|
|
If ObjVentas.GetVentaImpuestosLocales(CveVenta) Then
|
|
|
|
Dim dtImpuesto As DataTable = ObjVentas.DtResultados
|
|
If dtImpuesto.Rows.Count > 0 Then
|
|
For Each Row As DataRow In dtImpuesto.Rows
|
|
Dim Orden = 80
|
|
If Row("Importe").ToString.ToDouble <> 0 Then
|
|
DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
|
|
DR("Importe") = Row("Importe").ToString.ToDouble
|
|
DR("Orden") = Orden
|
|
TmpDTImpuestos.Rows.Add(DR)
|
|
DR = TmpDTImpuestos.NewRow()
|
|
Orden = Orden + 1
|
|
End If
|
|
Next
|
|
End If
|
|
Vta.DtDeduccion = TmpDTImpuestos.FiltraParametros("", Orderby:="Orden ASC")
|
|
|
|
End If
|
|
|
|
'TmpDT DESGLOSE DE IMPUESTOS 3.3
|
|
For Each dr1 As DataRow In Vta.DtDetalle.Rows
|
|
Dim DrIVA As DataRow = Nothing
|
|
Dim DrIEPS As DataRow = Nothing
|
|
|
|
Try
|
|
DrIVA = TmpDTImpuestosIVAIEPS.Select("Impuesto = 'IVA'")(0)
|
|
Catch ex As Exception
|
|
DrIVA = Nothing
|
|
End Try
|
|
|
|
If DrIVA IsNot Nothing Then
|
|
DrIVA("Importe") = DrIVA("Importe").ToString.ToDouble + dr1("ImporteIVA").ToString.ToDouble
|
|
TmpDTImpuestosIVAIEPS.AcceptChanges()
|
|
Else
|
|
Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
|
|
If dr1("PorcentajeIVA").ToString.ToDouble > 0 Then
|
|
DR2("Impuesto") = "IVA" : DR2("tasa") = String.Format("{0} %", dr1("PorcentajeIVA").ToString.ToDouble() * 100) : DR2("Importe") = dr1("ImporteIVA").ToString.ToDouble : DR2("Orden") = "1"
|
|
TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
|
|
TmpDTImpuestosIVAIEPS.AcceptChanges()
|
|
End If
|
|
End If
|
|
|
|
Try
|
|
DrIEPS = TmpDTImpuestosIVAIEPS.Select($"Impuesto = 'IEPS' AND tasa = '{dr1("PorcentajeIEPS").ToString.ToDouble * 100} %'")(0)
|
|
Catch ex As Exception
|
|
DrIEPS = Nothing
|
|
End Try
|
|
|
|
If DrIEPS IsNot Nothing Then
|
|
DrIEPS("Importe") = DrIEPS("Importe").ToString.ToDouble + dr1("ImporteIEPS").ToString.ToDouble
|
|
TmpDTImpuestosIVAIEPS.AcceptChanges()
|
|
Else
|
|
Dim DR2 As DataRow = TmpDTImpuestosIVAIEPS.NewRow()
|
|
If dr1("PorcentajeIEPS").ToString.ToDouble > 0 Then
|
|
DR2("Impuesto") = "IEPS" : DR2("tasa") = String.Format("{0} {1}", dr1("PorcentajeIEPS").ToString.ToDouble * 100, "%") : DR2("Importe") = dr1("ImporteIEPS").ToString.ToDouble : DR2("Orden") = If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.03, "2", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.06, "3", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.07, "4", If(dr1("PorcentajeIEPS").ToString.ToDecimal = 0.09, "5", ""))))
|
|
TmpDTImpuestosIVAIEPS.Rows.Add(DR2)
|
|
TmpDTImpuestosIVAIEPS.AcceptChanges()
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
Vta.DtDesgloseImpuestos = TmpDTImpuestosIVAIEPS.FiltraParametros("", Orderby:="Orden ASC")
|
|
|
|
If ObjVentas.GetVentasFirmas(CveVenta) Then
|
|
Vta.DtFirmas = ObjVentas.DtResultados
|
|
End If
|
|
|
|
|
|
'CFDI RELACIONADO
|
|
If dtVentas(0)("CveTipoRelacion").ToString.ToEntero > 0 Then
|
|
Vta.Timbre.Comprobante.TipoComprobante = If(Vta.TipoDocto.Contiene("Ing", "Ant"), "I", If(Vta.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
|
|
If Vta.Timbre.Comprobante.TipoComprobante = "E" Then
|
|
If Vta.TipoDocto.Contiene("Egs") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
|
|
End If
|
|
If Vta.TipoDocto.Contiene("Dev") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
|
End If
|
|
Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
|
|
End If
|
|
' cuando es refacturacoin es cfdirelacionado, con relacion 04
|
|
If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "04"
|
|
Vta.Timbre.CFDIRelacionados.UUID.Add(dtVentas(0)("FolioFiscalPadre").ToString)
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Sustitución de los CFDI Previos"
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(592) = "1" Then
|
|
|
|
Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}")
|
|
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString()
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString()
|
|
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
End If
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
'If UsuarioActual.CveEmpresa.Contiene(72, 80, 119) Then
|
|
If Vta.Timbre.Comprobante.TipoComprobante = "I" Then 'AndAlso (dtVentas(0)("Total").ToString.ToDouble = dtVentas(0)("TotalPadre").ToString.ToDouble) Then
|
|
If ObjVentas.GetVentaRefacturacion(dtVentas(0)("CveVentaPadre").ToString.ToEntero) Then
|
|
If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
|
|
ObjVentas.DtResultados.Columns.Add("Importe", GetType(Decimal))
|
|
ObjVentas.DtResultados.Rows(0)("Importe") = ObjVentas.DtResultados.Rows(0)("Total")
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
|
|
If Vta.TipoDocto.Contiene("Dev") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
Else
|
|
'If dtVentas(0)("TipoDocto").ToString.Contiene("Ing", "Ant", "Rem") Then
|
|
' 'carga as notas de credito vinculadas
|
|
' If ObjVentas.GetVentasAntNC(CveVenta, -1) Then
|
|
' Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
' End If
|
|
'End If
|
|
|
|
If dtVentas(0)("TipoDocto").ToString.Contiene("Egs", "Dev", "Ant") Then
|
|
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
|
|
If Vta.TipoDocto.Contiene("Dev") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso (Vta.DtDocumentosRelacionados Is Nothing OrElse Vta.DtDocumentosRelacionados.Rows.Count = 0) Then
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados '.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
If Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
|
|
If Vta.TipoDocto.Contiene("Ing") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
|
|
End If
|
|
|
|
If Vta.TipoDocto.Contiene("Egs") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "01"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Nota de Crédito aplicada a Ingreso"
|
|
End If
|
|
|
|
If Vta.TipoDocto.Contiene("Dev") Then
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = "03"
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = "Devolución aplicada a Ingreso"
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'SI ES TIPO RELACION 07- APLICACION DE ANTICIPOS
|
|
If dtVentas(0)("CveTipoRelacion").ToString.ToEntero = 7 Then
|
|
Dim RowTipoRelacion As DataRow = GlobalDTVtaTiposRelacion().FiltroPrimero($"CveTipoRelacion = {dtVentas(0)("CveTipoRelacion").ToString.ToEntero}")
|
|
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacion = RowTipoRelacion("SATClaveTipoRelacion").ToString()
|
|
Vta.Timbre.CFDIRelacionados.TipoRelacionTexto = RowTipoRelacion("SATTipoRelacion").ToString()
|
|
|
|
If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
Vta.DtDocumentosRelacionados = ObjVentas.DtResultados.FiltraParametros("FolioFiscal IS NOT NULL")
|
|
End If
|
|
End If
|
|
|
|
'End If
|
|
|
|
'If Vta.TipoDocto.Contiene("Egs", "Dev", "Ant") Then
|
|
' 'If ObjVentas.GetVentasAntNC(-1, CveVenta) Then
|
|
' ' Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
' 'End If
|
|
' If ObjVentas.GetVentasRelacionadas(CveVenta, UsuarioActual.CveEmpresa) Then
|
|
' Vta.DtNCVinculadas = ObjVentas.DtResultados
|
|
' End If
|
|
'End If
|
|
|
|
End If
|
|
ObjVentas.Dispose()
|
|
|
|
Dim Guardar As Boolean = If(GuardarPDF, True, If(AplicaPagare = "1", False, True))
|
|
|
|
If Not IsNothing(Vta) Then
|
|
'04/05/2018 - Se agrega seccion pruebas para generar factura venta .mrt para PyME
|
|
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
|
GeneraPDFVtaPyMe(Vta, "PDF")
|
|
Else
|
|
ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=Guardar), Vta.SerieFolio, "PDF")
|
|
Vta = Nothing
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
|
|
|
|
Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer, Optional Resumen As Boolean = False)
|
|
Dim ObjInventarios As New ClsInventarios
|
|
|
|
ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
|
|
|
|
Dim CveConcepto As Integer = ObjInventarios.CveConcepto
|
|
Dim Folio As String = ObjInventarios.Folio.ToString
|
|
Dim CveCompra = ObjInventarios.CveCompra
|
|
Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString
|
|
Dim FechaHora As DateTime = ObjInventarios.FechaHora
|
|
Dim Almacen As String = ObjInventarios.Almacen
|
|
Dim RazonSocial As String = ObjInventarios.Proveedor
|
|
Dim RazonSocialOC As String = ObjInventarios.RazonSocialOC
|
|
Dim CalleOrigen As String = ObjInventarios.CalleOrigen
|
|
Dim NoExtOrigen As String = ObjInventarios.NoExtOrigen
|
|
Dim ColoniaOrigen As String = ObjInventarios.ColoniaOrigen
|
|
Dim LocalidadOrigen As String = ObjInventarios.LocalidadOrigen
|
|
Dim MunicipioOrigen As String = ObjInventarios.MunicipioOrigen
|
|
Dim EstadoOrigen As String = ObjInventarios.EstadoOrigen
|
|
Dim PaisOrigen As String = ObjInventarios.PaisOrigen
|
|
Dim CPOrigen As String = ObjInventarios.CPOrigen
|
|
Dim CalleDestino As String = ObjInventarios.CalleDestino
|
|
Dim NoExtDestino As String = ObjInventarios.NoExtDestino
|
|
Dim ColoniaDestino As String = ObjInventarios.ColoniaDestino
|
|
Dim LocalidadDestino As String = ObjInventarios.LocalidadDestino
|
|
Dim MunicipioDestino As String = ObjInventarios.MunicipioDestino
|
|
Dim EstadoDestino As String = ObjInventarios.EstadoDestino
|
|
Dim PaisDestino As String = ObjInventarios.PaisDestino
|
|
Dim CPDestino As String = ObjInventarios.CPDestino
|
|
Dim Proveedor As String = ObjInventarios.Proveedor
|
|
Dim Remision As String = ObjInventarios.Remision
|
|
Dim SubProyecto As String = ObjInventarios.SubProyecto
|
|
Dim Observaciones As String = ObjInventarios.Observaciones
|
|
Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud")
|
|
Dim NombreCapturo As String = ObjInventarios.NombreCapturo
|
|
Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego")
|
|
Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
|
|
Dim Recibio As String = ObjInventarios.Recibio
|
|
Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
|
|
Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego
|
|
Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga
|
|
Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
|
|
Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
|
|
|
|
If 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
|
|
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").ToDecimal()
|
|
Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
|
|
|
|
For Each Dr As DataRow In DtUsados.Rows
|
|
Dr("No") = IndexInicialUsados
|
|
IndexInicialUsados += 1
|
|
Next
|
|
|
|
DtMovimientos.Merge(DtUsados)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
DtMovimientos.Columns("No").AutoIncrement = True
|
|
DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
|
|
DtMovimientos.Columns("No").AutoIncrementStep = 1
|
|
Dim keys(1) As DataColumn
|
|
keys(0) = DtMovimientos.Columns("No")
|
|
DtMovimientos.PrimaryKey = keys
|
|
End If
|
|
Else
|
|
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then
|
|
DtMovimientos = ObjInventarios.DtResultados.Copy()
|
|
CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal()
|
|
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").ToDecimal()
|
|
Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
|
|
|
|
For Each Dr As DataRow In DtUsados.Rows
|
|
Dr("No") = IndexInicialUsados
|
|
IndexInicialUsados += 1
|
|
Next
|
|
|
|
DtMovimientos.Merge(DtUsados)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
DtMovimientos.Columns("No").AutoIncrement = True
|
|
DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
|
|
DtMovimientos.Columns("No").AutoIncrementStep = 1
|
|
Dim keys(1) As DataColumn
|
|
keys(0) = DtMovimientos.Columns("No")
|
|
DtMovimientos.PrimaryKey = keys
|
|
End If
|
|
End If
|
|
|
|
If UsuarioActual.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
|
|
|
|
ImprimePDFAlmacen(CveConcepto, CveCompra, Folio.ToString, Fecha, Almacen, SubProyecto, Observaciones, Recibio,
|
|
Personal, Capturo, AlmacenDestino, CveConsignacion, CveMoneda, Moneda, FolioVenta, FolioOC,
|
|
FolioInterno, FechaHora, ObservacionesSolicitud, DepartamentoEntrega, RazonSocialOC,
|
|
Remision, Proveedor, CalleOrigen, NoExtOrigen, ColoniaOrigen, LocalidadOrigen, MunicipioOrigen,
|
|
EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
|
|
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
|
|
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
|
|
CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
|
|
CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo)
|
|
|
|
End Sub
|
|
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
|
|
If CveMoneda > 1 Then
|
|
DtMovimientos.Columns("PU").ColumnName = "PUx"
|
|
DtMovimientos.Columns("Total").ColumnName = "Totalx"
|
|
DtMovimientos.Columns("PUExtranjero").ColumnName = "PU"
|
|
DtMovimientos.Columns("TotalExtranjero").ColumnName = "Total"
|
|
End If
|
|
End Sub
|
|
Private Sub ImprimePDFAlmacen(CveConcepto As Integer, CveCompra As Integer, Folio As String, Fecha As String, Almacen As String, SubProyecto As String, Observaciones As String, Recibio As String,
|
|
Personal As String, Capturo As String, AlmacenDestino As String, CveConsignacion As Integer, CveMoneda As Integer, Moneda As String, FolioVenta As String, FolioOC As String,
|
|
FolioInterno As String, FechaHora As DateTime, ObservacionesSolicitud As String, DepartamentoEntrega As String, RazonSocialOC As String,
|
|
Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
|
|
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
|
|
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
|
|
RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
|
|
Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "")
|
|
|
|
|
|
Select Case CveConcepto
|
|
Case 1 'INICIAL
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim SBDireccion As New StringBuilder()
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Inventario Inicial"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 2, 32, 33, 36 ' E N T R A D A S
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
|
|
Dim dr As DataRow = Nothing
|
|
If CveCompra > 0 Then
|
|
'buscar en compras, para mandar los datos
|
|
Dim ObjCompra As New ClsCompras()
|
|
If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
|
|
dr = ObjCompra.DtResultados.Rows(0)
|
|
End If
|
|
ObjCompra.Dispose()
|
|
|
|
End If
|
|
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
If Archivo.Exists Then
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
|
|
params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
|
End If
|
|
If UsuarioActual.CveEmpresa = 119 Then
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
|
|
params.Add(New ReportParameter("RazonSocial", RazonSocial))
|
|
params.Add(New ReportParameter("Remision", Remision))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FolioOC", FolioOC))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
|
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
|
End If
|
|
|
|
Dim ConceptoFormato As String = "ENTRADA DE ALMACÉN"
|
|
If CveConcepto = 32 Then ConceptoFormato = "ENTRADA POR AJUSTE"
|
|
If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
|
|
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146) Then
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", ConceptoFormato))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
|
|
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
Else
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString()))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
|
|
params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
|
|
params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
|
|
params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, "")))
|
|
params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, "")))
|
|
params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDouble.Texto2Letras(CveMoneda).ToUpper)))
|
|
params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
|
|
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, "")))
|
|
params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, "")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("REVISÓ ALMACÉN{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ ALMACÉN{0}{1}", vbCrLf, Recibio)))
|
|
Else
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format(Recibio)))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
End If
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
|
|
ElseIf UsuarioActual.CveEmpresa = 140 Then
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
Dim concepto As String = ""
|
|
If CveConcepto.Contiene(2, 32, 33) Then
|
|
concepto = "ENTRADA DE ALMACÉN"
|
|
ElseIf CveConcepto.Contiene(36) Then
|
|
concepto = "ENTRADA VIRTUAL"
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", concepto))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
|
|
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
|
|
params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
|
|
|
|
ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
|
|
params.Add(New ReportParameter("TipoDocumento", String.Format("Compras {0}", Almacen)))
|
|
params.Add(New ReportParameter("Fecha", If(CveCompra > 0, dr("Fecha").ToString.ToDate.ToShortDateString, "")))
|
|
params.Add(New ReportParameter("Folio", Folio.ToString))
|
|
params.Add(New ReportParameter("NumeroOrden", If(CveCompra > 0, dr("OCVinculada").ToString, "")))
|
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, "")))
|
|
params.Add(New ReportParameter("NombreProveedor", RazonSocial))
|
|
params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
|
|
params.Add(New ReportParameter("CiudadProveedor", " "))
|
|
params.Add(New ReportParameter("EstadoProveedor", " "))
|
|
params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
|
|
|
|
params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, "")))
|
|
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("IVA", If(CveCompra > 0, dr("IVA").ToString.FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("Total", If(CveCompra > 0, dr("Total").ToString.FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("TotalLetra", If(CveCompra > 0, String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper), "")))
|
|
|
|
params.Add(New ReportParameter("Observaciones", If(CveCompra > 0, dr("Observaciones").ToString, "")))
|
|
params.Add(New ReportParameter("Capturo", If(CveCompra > 0, dr("NombreCapturo").ToString, "")))
|
|
|
|
PUanacExtr(CveMoneda)
|
|
|
|
|
|
ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
|
|
Else
|
|
|
|
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("SerieFolio").ToString, "")))
|
|
params.Add(New ReportParameter("Descuentos", If(CveCompra > 0 AndAlso dr IsNot Nothing, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), "")))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 3, 16, 37, 40 ' S A L I D A S
|
|
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
|
|
'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim concepto As String = ""
|
|
If CveConcepto.Contiene(3, 40) Then
|
|
concepto = "SALIDA DE ALMACÉN"
|
|
ElseIf CveConcepto = 37 Then
|
|
concepto = "SALIDA VIRTUAL"
|
|
Else
|
|
concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN"
|
|
End If
|
|
|
|
If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then
|
|
If Archivo2.Exists Then
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
|
|
params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
|
|
params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
|
|
params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
|
|
params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
|
|
params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
|
|
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
|
|
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
|
|
End If
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
Else
|
|
If Archivo.Exists Then
|
|
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
|
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
|
|
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString))
|
|
params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString))
|
|
params.Add(New ReportParameter("DireccionCliente", DomicilioCliente))
|
|
params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString))
|
|
|
|
If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
|
|
If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
|
|
If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString))
|
|
params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
|
|
Else
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
|
|
If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
|
|
If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)
|
|
|
|
Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
|
|
Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()
|
|
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString))
|
|
params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
|
|
End If
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", concepto))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha))
|
|
|
|
|
|
'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
ElseIf UsuarioActual.CveEmpresa = 140 Then
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", concepto))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
|
|
params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
|
|
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Else
|
|
Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", concepto))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(143) Then
|
|
Dim objclientes As New ClsClientes
|
|
If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then
|
|
params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString))
|
|
End If
|
|
If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
|
|
If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
|
|
If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
Else
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
|
|
If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
|
|
If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)
|
|
|
|
Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
|
|
Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
End If
|
|
End If
|
|
|
|
|
|
If A.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
Case 4 ' ENTRADA POR DESARMADO
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 5 'SALIDA POR ARMADO
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 6, 23 ' ENTRADA RESGUARDO
|
|
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Personal))
|
|
params.Add(New ReportParameter("Responsable", Personal))
|
|
params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
If DtMovimientos.COUNT("Serie") > 0 Then
|
|
params.Add(New ReportParameter("MostrarSerieLote", "1"))
|
|
Else
|
|
params.Add(New ReportParameter("MostrarSerieLote", "0"))
|
|
End If
|
|
Else
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
|
|
params.Add(New ReportParameter("NombreRecibio", Personal))
|
|
params.Add(New ReportParameter("Responsable", Personal))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
params.Add(New ReportParameter("NombreProveedor", Proveedor))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
End If
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
|
|
|
|
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
|
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
|
|
End If
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
|
|
Dim Mov As New ClsInventarios
|
|
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
|
|
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
|
|
TipoResponsable = "Personal"
|
|
Responsable = Recibio
|
|
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
|
|
TipoResponsable = "Cliente"
|
|
Responsable = Mov.DtResultados(0)("Nombre").ToString
|
|
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
|
|
TipoResponsable = "Proveedor"
|
|
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
End If
|
|
End If
|
|
Mov.Dispose()
|
|
|
|
params.Add(New ReportParameter("Responsable", Responsable))
|
|
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
|
|
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
Case 7 ' SALIDA RESGUARDO
|
|
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
|
|
Dim params As New List(Of ReportParameter)
|
|
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
|
|
params.Add(New ReportParameter("Responsable", Personal))
|
|
params.Add(New ReportParameter("NombreRecibio", Personal))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
If DtMovimientos.COUNT("Serie") > 0 Then
|
|
params.Add(New ReportParameter("MostrarSerieLote", "1"))
|
|
Else
|
|
params.Add(New ReportParameter("MostrarSerieLote", "0"))
|
|
End If
|
|
Else
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
|
|
params.Add(New ReportParameter("NombreRecibio", Personal))
|
|
params.Add(New ReportParameter("Responsable", Personal))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
params.Add(New ReportParameter("NombreProveedor", Proveedor))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
|
|
End If
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
|
|
|
|
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
|
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
|
|
End If
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
|
|
Dim Mov As New ClsInventarios
|
|
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
|
|
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
|
|
TipoResponsable = "Personal"
|
|
Responsable = Recibio
|
|
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
|
|
TipoResponsable = "Cliente"
|
|
Responsable = Mov.DtResultados(0)("Nombre").ToString
|
|
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
|
|
TipoResponsable = "Proveedor"
|
|
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
End If
|
|
End If
|
|
Mov.Dispose()
|
|
|
|
params.Add(New ReportParameter("Responsable", Responsable))
|
|
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
|
|
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 8, 26 ' T R A S L A D O - S A L I D A
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim RutaFormato As String = "{0}Formatos\Traslado.rdlc"
|
|
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 = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "",
|
|
Paqueteria = "", NumContrato = "", Guia = ""
|
|
|
|
Dim CveContrato As Integer = 0
|
|
If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
|
|
CveContrato = DtMovimientos(0)("CveContrato").ToString.ToEntero
|
|
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 = 119 Then
|
|
If CalleOrigen.Length > 0 Then
|
|
SBDireccionO.AppendFormat("{0}", CalleOrigen)
|
|
If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
|
|
If ColoniaOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Col: {0}", ColoniaOrigen)
|
|
If CPOrigen.Length > 0 Then SBDireccionO.AppendFormat(", CP: {0}", CPOrigen)
|
|
If LocalidadOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Loc: {0}", LocalidadOrigen)
|
|
If MunicipioOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Cd: {0}", MunicipioOrigen)
|
|
If EstadoOrigen.Length > 0 Then SBDireccionO.AppendFormat(", Edo: {0}", EstadoOrigen)
|
|
If PaisOrigen.Length > 0 Then SBDireccionO.AppendFormat(", País: {0}", PaisOrigen)
|
|
params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString))
|
|
End If
|
|
If CalleDestino.Length > 0 Then
|
|
SBDireccionD.AppendFormat("{0}", CalleDestino)
|
|
If NoExtDestino.Length > 0 Then SBDireccionD.AppendFormat(", No.Ext: {0}", NoExtDestino)
|
|
If ColoniaDestino.Length > 0 Then SBDireccionD.AppendFormat(", Col: {0}", ColoniaDestino)
|
|
If CPDestino.Length > 0 Then SBDireccionD.AppendFormat(", CP: {0}", CPDestino)
|
|
If LocalidadDestino.Length > 0 Then SBDireccionD.AppendFormat(", Loc: {0}", LocalidadDestino)
|
|
If MunicipioDestino.Length > 0 Then SBDireccionD.AppendFormat(", Cd: {0}", MunicipioDestino)
|
|
If EstadoDestino.Length > 0 Then SBDireccionD.AppendFormat(", Edo: {0}", EstadoDestino)
|
|
If PaisDestino.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", PaisDestino)
|
|
params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString))
|
|
End If
|
|
End If
|
|
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
|
|
If Archivo.Exists Then
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
If UsuarioActual.CveEmpresa = 140 Then
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
|
|
params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
|
|
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
|
|
params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
|
|
ElseIf UsuarioActual.CveEmpresa = 153 Then
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("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 = 72 Or UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
params.Add(New ReportParameter("ResponsableCarga", ResponsableCarga))
|
|
params.Add(New ReportParameter("ResponsableRecibio", ResponsableRecibio))
|
|
|
|
DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
|
|
End If
|
|
|
|
ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
' params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
|
|
|
|
Case 9, 27 ' T R A S L A D O - E N T R A D A
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("CveConcepto", "9")) 'FolioTraspaso.ToString
|
|
'params.Add(New ReportParameter("TipoTraslado", "RECEPCIÓN")) 'FolioTraspaso.ToString
|
|
params.Add(New ReportParameter("SubProyecto", String.Format("Traslado de: {0} A {1}", AlmacenDestino, Almacen))) 'DdlAlmacenDestino.SelectedItem.ToString
|
|
params.Add(New ReportParameter("Folio", Folio)) 'FolioTraspaso.ToString
|
|
params.Add(New ReportParameter("Fecha", Fecha)) 'TxtFecha.Text
|
|
params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
|
|
'params.Add(New ReportParameter("NombreEntrego", Capturo)) 'UsuarioActual.Nombre
|
|
params.Add(New ReportParameter("NombreAccion", Recibio)) 'TxtResponsable.Text
|
|
params.Add(New ReportParameter("Accion", "RECIBIÓ"))
|
|
|
|
If Archivo.Exists Then
|
|
params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
|
|
params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
|
|
params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
DtMovimientos = DtMovimientos.FiltraParametros("", "PS")
|
|
ElseIf UsuarioActual.CveEmpresa = 140 Then
|
|
params.Add(New ReportParameter("CantidadProductos", "500"))
|
|
params.Add(New ReportParameter("CantidadUsados", "500"))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
|
|
params.Add(New ReportParameter("Destino", Almacen))
|
|
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
|
|
params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
|
|
ElseIf UsuarioActual.CveEmpresa = 153 Then
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte
|
|
params.Add(New ReportParameter("Destino", Almacen))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
End If
|
|
|
|
|
|
|
|
ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
params.Add(New ReportParameter("Origen", Almacen))
|
|
params.Add(New ReportParameter("Destino", AlmacenDestino))
|
|
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
ImprimirPDF(String.Format("Empresas/Grales/Formatos/Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 10 'E N T R A D A P O R C O N S I G N A C I Ó N
|
|
If CveConsignacion > 0 Then
|
|
'buscar en compras, para mandar los datos
|
|
Dim ObjInventarios As New ClsInventarios()
|
|
If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
|
|
Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("TipoDocumento", "Entrada por Consignación"))
|
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("Folio", Folio.ToString))
|
|
params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString))
|
|
params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
|
|
params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
|
|
params.Add(New ReportParameter("Moneda", Moneda))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
PUanacExtr(CveMoneda)
|
|
ImprimirPDF(String.Format("{0}Formatos/EntradasConsignacion.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Entrada por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
ObjInventarios.Dispose()
|
|
|
|
End If
|
|
Case 11 'S A L I D A P O R C O N S I G N A C I Ó N
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasConsignacion.rdlc", DtMovimientos, params, String.Format("Salida por Consignacion - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Case 12 'D E V O L U C I O N D E C O N S I G N A C I O N
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim ObjInventarios As New ClsInventarios()
|
|
|
|
If ObjInventarios.GetConsignacionesImpresion(CveConsignacion) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
|
|
params.Add(New ReportParameter("CveConcepto", "12"))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
|
|
params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("CiudadProveedor", " "))
|
|
params.Add(New ReportParameter("EstadoProveedor", " "))
|
|
params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("Consignacion", dr("SerieFolio").ToString))
|
|
'params.Add(New ReportParameter("Serie", Serie))
|
|
'params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
|
|
'params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
|
'params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
|
|
|
|
End If
|
|
|
|
If UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
End If
|
|
'ObjInventarios.Dispose()
|
|
Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
|
|
If ObjInventarios.GetMovimientosDetalle(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
|
Dim TotalFinal As Double = ObjInventarios.DtResultados.SUM("Total") * 1.16
|
|
Dim dr As DataRow = ObjInventarios.DtResultados.Rows(0)
|
|
'params.Add(New ReportParameter("IVA", dr("IVA").ToString))
|
|
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", TotalFinal.Texto2Letras().ToUpper)))
|
|
|
|
End If
|
|
ObjInventarios.Dispose()
|
|
|
|
'If CveCompra > 0 Then
|
|
' Dim ObjCompra As New ClsCompras()
|
|
' If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
|
|
' Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
|
|
' params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
' params.Add(New ReportParameter("Serie", dr("SerieFolio").ToString))
|
|
' params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
|
|
' params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
|
|
' params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
|
|
' params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
|
' params.Add(New ReportParameter("TotalLetra", String.Format("({0})", (dr("Total").ToString.ToDouble).Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
|
|
|
|
' End If
|
|
' ObjCompra.Dispose()
|
|
'End If
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios")
|
|
Case 13 'D E V O L U C I O N D E P R O V E E D O R
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
|
|
Dim ObjCompra As New ClsCompras()
|
|
If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
|
|
Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
|
|
Dim FechaCompra As Date = dr("FechaMovto").ToString.ToDate
|
|
Dim FechaVencimiento As Date = dr("FechaVencimiento").ToString.ToDate
|
|
params.Add(New ReportParameter("Fecha", FechaCompra.ToShortDateString))
|
|
params.Add(New ReportParameter("FechaVencimiento", FechaVencimiento.ToShortDateString))
|
|
params.Add(New ReportParameter("Plazo", DateDiff(DateInterval.Day, FechaCompra, FechaVencimiento).ToString))
|
|
'params.Add(New ReportParameter("Folio", Folio.ToString))
|
|
params.Add(New ReportParameter("Serie", dr("Serie").ToString))
|
|
|
|
'params.Add(New ReportParameter("NumeroOrden", dr("OCVinculada").ToString))
|
|
params.Add(New ReportParameter("FacturaProveedor", dr("SerieFolio").ToString))
|
|
params.Add(New ReportParameter("NombreProveedor", dr("RazonSocial").ToString))
|
|
params.Add(New ReportParameter("DireccionProveedor", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("CiudadProveedor", " "))
|
|
params.Add(New ReportParameter("EstadoProveedor", " "))
|
|
params.Add(New ReportParameter("RFCProveedor", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("CodigoProveedor", dr("FolioMovimiento").ToString))
|
|
params.Add(New ReportParameter("OrigenCompra", dr("SerieFolio").ToString))
|
|
params.Add(New ReportParameter("SubTotal", (dr("SubTotal").ToString.ToDouble).FormatoNumero))
|
|
params.Add(New ReportParameter("Descuentos", (dr("Descuentos").ToString.ToDouble).FormatoNumero(2)))
|
|
params.Add(New ReportParameter("IVA", dr("IVA").ToString.FormatoNumero(2)))
|
|
params.Add(New ReportParameter("Total", dr("Total").ToString.FormatoNumero(2)))
|
|
params.Add(New ReportParameter("TotalLetra", String.Format("({0})", dr("Total").ToString.ToDouble.Texto2Letras(dr("CveMoneda").ToString.ToEntero).ToUpper)))
|
|
|
|
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
|
|
params.Add(New ReportParameter("Capturo", dr("NombreCapturo").ToString))
|
|
|
|
Else
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
End If
|
|
ObjCompra.Dispose()
|
|
|
|
If Not Archivo.Exists Then
|
|
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF(String.Format("{0}Formatos\DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
'ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionProveedor.rdlc", DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios")
|
|
Case 14 'E N T R E G A P O R G A R A N T I A
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
Dim SisEmpresa As New ClsSisEmpresas()
|
|
Dim EmpInfo As DataRow
|
|
Dim domicilioFiscal As String = ""
|
|
If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
EmpInfo = SisEmpresa.DtResultados.Rows(0)
|
|
domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
|
|
params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal))
|
|
End If
|
|
End If
|
|
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", "Entrada por garantia"))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", ""))
|
|
params.Add(New ReportParameter("Entrega", ""))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaGarantia.rdlc", DtMovimientos, params, String.Format("EntradaPorGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 15 'S A L I D A G A R A N T I A
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
|
|
|
|
params.Add(New ReportParameter("Concepto", "Salida Garantía"))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", ""))
|
|
params.Add(New ReportParameter("Entrega", ""))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
' If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
|
|
'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'Else
|
|
' params.Add(New ReportParameter("Folio", Folio))
|
|
' params.Add(New ReportParameter("Fecha", Fecha))
|
|
' params.Add(New ReportParameter("Almacen", Almacen))
|
|
' params.Add(New ReportParameter("SubProyecto", SubProyecto))
|
|
' params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'End If
|
|
|
|
|
|
Case 18 'D E V O L U C I O N D E L C L I E N T E
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If Archivo.Exists Then
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES
|
|
'If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
If UsuarioActual.CveEmpresa = 72 Then
|
|
Dim SisEmpresa As New ClsSisEmpresas()
|
|
Dim EmpInfo As DataRow
|
|
Dim domicilioFiscal As String = ""
|
|
If SisEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
|
|
EmpInfo = SisEmpresa.DtResultados.Rows(0)
|
|
domicilioFiscal = String.Format("{0} No.{1}, Col. {2}, CP:{3},{4},{5},MEXICO. RFC:{6}", EmpInfo.Item("Direccion"), EmpInfo.Item("NoExt"), EmpInfo.Item("Colonia"), EmpInfo.Item("CP"), EmpInfo.Item("Ciudad"), EmpInfo.Item("Estado"), EmpInfo.Item("RFC"))
|
|
params.Add(New ReportParameter("DomicilioFiscal", domicilioFiscal))
|
|
End If
|
|
End If
|
|
End If
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'End If
|
|
Else
|
|
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'End If
|
|
End If
|
|
|
|
Case 19 'ARMADO DE PAQUETE
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Armado de Paquete"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 20 'DESARMADO DE PAQUETE
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Desarmado de Paquete"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
End If
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Desarmado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
|
|
Case 21, 22 'SALIDA POR PRESTAMO
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc"
|
|
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
|
Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
|
|
End If
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
If CveConcepto = 21 Then
|
|
params.Add(New ReportParameter("Concepto", "Salida por Prestamo"))
|
|
Else
|
|
params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
|
|
End If
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
If (UsuarioActual.CveEmpresa = 72) Then
|
|
params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
Else
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
End If
|
|
If CveConcepto = 21 Then
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
ElseIf CveConcepto = 22 Then
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
'Case 22 'ENTRADA POR PRESTAMO
|
|
' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
' Dim params As New List(Of ReportParameter)
|
|
|
|
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
' If Imagen.Exists Then
|
|
' params.Add(New ReportParameter("LogoPath", logouri))
|
|
' Else
|
|
' params.Add(New ReportParameter("LogoPath", ""))
|
|
' End If
|
|
|
|
' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
|
|
' params.Add(New ReportParameter("Almacen", Almacen))
|
|
' params.Add(New ReportParameter("Fecha", Fecha))
|
|
' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
' params.Add(New ReportParameter("Folio", Folio))
|
|
' params.Add(New ReportParameter("Descuentos", ""))
|
|
' params.Add(New ReportParameter("IVA", ""))
|
|
' params.Add(New ReportParameter("Total", ""))
|
|
' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
' params.Add(New ReportParameter("FacturadoA", NombreCliente))
|
|
' If (UsuarioActual.CveEmpresa = 72) Then
|
|
' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
|
|
' End If
|
|
' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 24 'SALIDA POR RESGUARDO
|
|
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Archivo As String = String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)
|
|
|
|
If Not ArchivoRuta.Exists Then
|
|
Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
|
|
End If
|
|
|
|
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
|
|
Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
params.Add(New ReportParameter("NombreEntrego", NombreEntrego))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
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 Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim TipoResponsable As String = ""
|
|
Dim Responsable As String = ""
|
|
|
|
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
|
|
|
|
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
|
|
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
|
|
End If
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
|
|
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
|
|
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
|
|
|
|
Dim Mov As New ClsInventarios
|
|
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
|
|
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
|
|
TipoResponsable = "Personal"
|
|
Responsable = Recibio
|
|
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
|
|
TipoResponsable = "Cliente"
|
|
Responsable = Mov.DtResultados(0)("Nombre").ToString
|
|
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
|
|
TipoResponsable = "Proveedor"
|
|
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
|
|
End If
|
|
End If
|
|
Mov.Dispose()
|
|
|
|
params.Add(New ReportParameter("Responsable", Responsable))
|
|
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
|
|
|
|
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo")
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", ConceptoReporte))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Proveedor", Proveedor))
|
|
params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/PrestamosProveedor.rdlc", DtMovimientos, params, String.Format("Proveedor - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
|
|
Case 30
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = "" 'String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", "Salida de Almacén Por Consumo Interno"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
|
|
params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
|
|
params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
|
|
params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
|
|
params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
|
|
params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
|
|
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
|
|
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
'End If
|
|
|
|
If Archivo2.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
Case 31 'SALIDA POR DEMOSTRACION
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidaDemostracion.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If Archivo.Exists Then
|
|
params.Add(New ReportParameter("Concepto", "SALIDA POR DEMOSTRACIÓN"))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidaDemostracion.rdlc", DtMovimientos, params, String.Format("Salida por Demostración - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
Case 34, 35 ' S A L I D A S P O R A J U S T E --- S A L I D A M A N U A L
|
|
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
|
|
'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72))
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then
|
|
If Archivo2.Exists Then
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("NombreCompleto", DtMovimientos(0)("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Puesto", DtMovimientos(0)("Puesto").ToString))
|
|
params.Add(New ReportParameter("Turno", DtMovimientos(0)("Turno").ToString))
|
|
params.Add(New ReportParameter("Departamento", DtMovimientos(0)("Departamento").ToString))
|
|
params.Add(New ReportParameter("CentroCosto", DtMovimientos(0)("CentroCosto").ToString))
|
|
params.Add(New ReportParameter("CodigoEmpleado", DtMovimientos(0)("CodigoEmpleado").ToString))
|
|
params.Add(New ReportParameter("Celular", DtMovimientos(0)("Celular").ToString))
|
|
params.Add(New ReportParameter("Telefono", DtMovimientos(0)("Telefono").ToString))
|
|
params.Add(New ReportParameter("Correo", DtMovimientos(0)("Correo").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
|
|
End If
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
Else
|
|
If Archivo.Exists Then
|
|
|
|
Dim ConceptoReporte As String = "SALIDA POR AJUSTE"
|
|
If CveConcepto = 35 Then ConceptoReporte = "SALIDA MANUAL"
|
|
|
|
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
|
|
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)
|
|
|
|
If Recibio = "" AndAlso Personal <> "" Then Recibio = Personal
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
Else
|
|
|
|
DomicilioSucursal = DomicilioCliente
|
|
End If
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
|
|
|
params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss"))))
|
|
params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString))
|
|
params.Add(New ReportParameter("RFCCliente", DtMovimientos(0)("RFC").ToString))
|
|
params.Add(New ReportParameter("DireccionCliente", DomicilioCliente))
|
|
params.Add(New ReportParameter("TelefonoCliente", DtMovimientos(0)("SucClienteTelefono").ToString))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
|
|
params.Add(New ReportParameter("VendedorNombre", DtMovimientos(0)("Vendedor").ToString))
|
|
|
|
If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
|
|
If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
|
|
If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("EnvioNoExt").ToString))
|
|
params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("EnvioNoInt").ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
|
|
Else
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
|
|
If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
|
|
If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)
|
|
|
|
Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
|
|
Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()
|
|
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioNoExt", DtMovimientos(0)("SucClienteNoExt").ToString))
|
|
params.Add(New ReportParameter("EnvioNoInt", DtMovimientos(0)("SucClienteNoInt").ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("SucClienteColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("SucClienteCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("SucClienteEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DepartamentoEnvio))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("SucClienteCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
params.Add(New ReportParameter("PedidoContrato", DtMovimientos(0)("PedidoContrato").ToString))
|
|
End If
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Concepto", ConceptoReporte))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", Capturo))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
|
|
If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
If UsuarioActual.CveEmpresa = 80 Then params.Add(New ReportParameter("FolioAnticipo", FolioInterno))
|
|
If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
If UsuarioActual.CveEmpresa = 119 Then params.Add(New ReportParameter("Fecha", Fecha))
|
|
|
|
|
|
'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
If UsuarioActual.CveEmpresa = 140 Then
|
|
params.Add(New ReportParameter("Concepto", ConceptoReporte))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.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
|
|
Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta))
|
|
' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
If Imagen.Exists Then
|
|
'params.Add(New ReportParameter("LogoPath", logouri))
|
|
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
|
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE"))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("Observaciones", Observaciones))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Descuentos", ""))
|
|
params.Add(New ReportParameter("IVA", ""))
|
|
params.Add(New ReportParameter("Total", ""))
|
|
'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(143) Then
|
|
Dim objclientes As New ClsClientes
|
|
If objclientes.GetClientes(-1, DtMovimientos(0)("Nombre").ToString, "-1", "-1", "-1", "-1", "-1", -1, 143) Then
|
|
params.Add(New ReportParameter("NombreComercial", objclientes.DtResultados(0)("NombreComercial").ToString))
|
|
End If
|
|
If DtMovimientos(0)("CveDireccionEnvio").ToString.ToEntero > 0 Then
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("EnvioDireccion").ToString)
|
|
If DtMovimientos(0)("EnvioNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("EnvioNoExt").ToString)
|
|
If DtMovimientos(0)("EnvioNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("EnvioNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("EnvioNoInt").ToString)
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
Else
|
|
Dim StrEnvioDi As New StringBuilder
|
|
StrEnvioDi.AppendFormat("{0}", DtMovimientos(0)("SucClienteDireccion").ToString)
|
|
If DtMovimientos(0)("SucClienteNoExt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoExt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Ext: {0}", DtMovimientos(0)("SucClienteNoExt").ToString)
|
|
If DtMovimientos(0)("SucClienteNoInt").ToString IsNot Nothing AndAlso DtMovimientos(0)("SucClienteNoInt").ToString.Length > 0 Then StrEnvioDi.AppendFormat(", No.Int: {0}", DtMovimientos(0)("SucClienteNoInt").ToString)
|
|
|
|
Dim EnvioContacto As String = IIf(DtMovimientos(0)("EnvioContacto").ToString() = "", Recibio, DtMovimientos(0)("EnvioContacto").ToString()).ToString()
|
|
Dim DepartamentoEnvio As String = IIf(DtMovimientos(0)("EnvioDepartamento").ToString() = "", DepartamentoEntrega, DtMovimientos(0)("EnvioDepartamento").ToString()).ToString()
|
|
|
|
params.Add(New ReportParameter("EnvioDireccion", StrEnvioDi.ToString))
|
|
params.Add(New ReportParameter("EnvioColonia", DtMovimientos(0)("EnvioColonia").ToString))
|
|
params.Add(New ReportParameter("EnvioCiudad", DtMovimientos(0)("EnvioCiudad").ToString))
|
|
params.Add(New ReportParameter("EnvioEstado", DtMovimientos(0)("EnvioEstado").ToString))
|
|
params.Add(New ReportParameter("EnvioContacto", DtMovimientos(0)("EnvioContacto").ToString))
|
|
params.Add(New ReportParameter("EnvioDepartamento", DtMovimientos(0)("EnvioDepartamento").ToString))
|
|
params.Add(New ReportParameter("EnvioCP", DtMovimientos(0)("EnvioCP").ToString))
|
|
params.Add(New ReportParameter("ClientePais", DtMovimientos(0)("SucClientePais").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", DtMovimientos(0)("SucTelefono").ToString))
|
|
End If
|
|
End If
|
|
|
|
|
|
If A.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
Case 42 'ENTRADAS USADOS
|
|
|
|
Dim ObjAcum As New ClsAcumuladores
|
|
Dim DatosEntradasUsados As New DataTable
|
|
Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen))
|
|
If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then
|
|
DatosEntradasUsados = ObjAcum.DtResultados
|
|
|
|
End If
|
|
ObjAcum.Dispose()
|
|
|
|
'Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
|
|
'Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)
|
|
|
|
'Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today))
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
params.Add(New ReportParameter("Direccion", Almacen))
|
|
params.Add(New ReportParameter("FechaConFormato", Now.ToString("dd/MM/yyyy")))
|
|
'params.Add(New ReportParameter("FechaInicial", Fecha))
|
|
'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Sucursal", "Sucursal"))
|
|
params.Add(New ReportParameter("Cliente", NombreCliente))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.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."))
|
|
|
|
ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
|
|
Case 7
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim CiudadSucursal As String = ""
|
|
Dim DomicilioSucursal As String = ""
|
|
|
|
If DtMovimientos(0)("CveVenta").ToString <> "" Then
|
|
CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
|
|
DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
|
|
End If
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Almacen", Almacen))
|
|
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
|
|
params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
|
|
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
|
params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
|
|
params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
|
|
params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
|
|
params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
|
|
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
|
|
'End If
|
|
|
|
End Select
|
|
|
|
If CveConcepto = 2 Then
|
|
ElseIf CveConcepto = 3 Then
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'OC' - IMPRIME PDF OC"
|
|
Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
|
|
Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
|
|
'Dim reporte As Byte() = GeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
|
|
If IsNothing(reporte) Then
|
|
Else
|
|
Dim ObjOC As New ClsOC
|
|
Dim Folio As Integer = 0
|
|
If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
|
|
Folio = ObjOC.Folio
|
|
End If
|
|
ObjOC.Dispose()
|
|
If Folio > 0 Then
|
|
ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ImprimePDFCotOC(CveOrdenCompra As Integer)
|
|
Dim reporte As Byte()
|
|
|
|
reporte = NewGeneraOCCotizacion(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
|
|
If IsNothing(reporte) Then
|
|
Else
|
|
Dim ObjOC As New ClsOC
|
|
Dim Folio As Integer = 0
|
|
If ObjOC.GetOC(CveOrdenCompra, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
|
|
Folio = ObjOC.Folio
|
|
End If
|
|
ObjOC.Dispose()
|
|
If Folio > 0 Then
|
|
ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'VAL' - IMPRIME PDF VAL"
|
|
Private Sub GenerarPDFVale(CveVale As Integer)
|
|
|
|
Dim ObjAF As New ClsAF
|
|
If ObjAF.GetValesCombustible(-1, CveVale, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1) Then
|
|
Dim dtVC As DataTable = ObjAF.DtResultados
|
|
Dim dr As DataRow = dtVC.Rows(0)
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Proveedor", dr("RazonSocial").ToString))
|
|
params.Add(New ReportParameter("Obra", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("NoEconomico", dr("Codigo").ToString))
|
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString))
|
|
params.Add(New ReportParameter("Operador", dr("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Combustible", dr("Combustible").ToString))
|
|
params.Add(New ReportParameter("LitrosCombustible", dr("Litros").ToString))
|
|
ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params)
|
|
|
|
'ImprimirPDFview(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/ValesCombustible.rdlc", UsuarioActual.Empresa.Ruta), lrds, params, "formato", "pdf", ReportViewer1)
|
|
'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas\1\Formatos\ValesCombustible.rdlc", UsuarioActual.Empresa.Rulrdsta))
|
|
'If Archivo.Exists Then
|
|
|
|
'Else
|
|
' 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
' ImprimirPDF("/Empresas/1/Formatos/ValesCombustible.rdlc", dtVC, params, "ValeCombustible")
|
|
'End If
|
|
End If
|
|
ObjAF.Dispose()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'OS' - IMPRIMIR PDF OS"
|
|
Private Sub GenerarPDFOS(CveOS As Integer)
|
|
Dim ObjOS As New ClsOS()
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim CveFolio = ""
|
|
CreaDT()
|
|
Dim ReporteEmpresa As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
|
If ObjOS.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim dtOS As DataTable = ObjOS.DtResultados
|
|
Dim dr As DataRow = dtOS.Rows(0)
|
|
params.Add(New ReportParameter("Cliente", dr("Cliente").ToString))
|
|
params.Add(New ReportParameter("Solicito", dr("PersonaSolicito").ToString))
|
|
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
|
params.Add(New ReportParameter("Recibio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaRecibido", dr("FechaRecepcion").ToString))
|
|
params.Add(New ReportParameter("FolioOS", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("ClienteTelefono", dr("Telefono").ToString))
|
|
params.Add(New ReportParameter("ClienteCalle", dr("Direccion").ToString))
|
|
params.Add(New ReportParameter("ClienteColonia", dr("Colonia").ToString))
|
|
params.Add(New ReportParameter("ClienteCiudad", dr("Ciudad").ToString))
|
|
params.Add(New ReportParameter("ClienteEstado", dr("Estado").ToString))
|
|
CveFolio = dr("Folio").ToString
|
|
|
|
If ReporteEmpresa.Exists Then
|
|
params.Add(New ReportParameter("NoDeCliente", dr("CveCliente").ToString))
|
|
params.Add(New ReportParameter("RFC", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("Vendedor", " "))
|
|
params.Add(New ReportParameter("Correo", dr("Correo").ToString))
|
|
params.Add(New ReportParameter("CodigoDeServicio", dr("CveOS").ToString))
|
|
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("TipoServicio", dr("TipoServicio").ToString))
|
|
params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString))
|
|
params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString))
|
|
params.Add(New ReportParameter("Copia", "Copia: Original"))
|
|
params.Add(New ReportParameter("Equipo", dr("Equipo").ToString))
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Not ReporteEmpresa.Exists Then
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
End If
|
|
|
|
If ObjOS.GetOrdenesServiciosDetalle(CveOS) Then
|
|
TmpDTOS = ObjOS.DtResultados
|
|
End If
|
|
|
|
If ObjOS.GetDetalleMateriales(-1, CveOS) Then
|
|
TmpDTMaterialesOS = ObjOS.DtResultados
|
|
End If
|
|
Dim lrds As New List(Of ReportDataSource)
|
|
Dim rds As New ReportDataSource With {.Name = "DataSet2", .Value = TmpDTMaterialesOS}
|
|
Dim rds2 As New ReportDataSource With {.Name = "DataSet1", .Value = TmpDTOS}
|
|
|
|
lrds.Add(rds)
|
|
lrds.Add(rds2)
|
|
ObjOS.Dispose()
|
|
|
|
ImprimirPDF(String.Format("Empresas/{0}/Formatos/OrdenServicio.rdlc", UsuarioActual.CveEmpresa), lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
|
|
End Sub
|
|
Private Sub CreaDT()
|
|
TmpDTOS = New DataTable
|
|
TmpDTOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
|
|
|
TmpDTOS.Columns.Add("CveClasificacion", GetType(Integer))
|
|
TmpDTOS.Columns.Add("Clasificacion", GetType(String))
|
|
TmpDTOS.Columns.Add("CvePS", GetType(Integer))
|
|
TmpDTOS.Columns.Add("CveUM", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UM", GetType(String))
|
|
TmpDTOS.Columns.Add("Cantidad", GetType(Integer))
|
|
TmpDTOS.Columns.Add("PS", GetType(String))
|
|
TmpDTOS.Columns.Add("Especificaciones", GetType(String))
|
|
TmpDTOS.Columns.Add("Materiales", GetType(String))
|
|
TmpDTOS.Columns.Add("CveCuentaEquipo", GetType(Integer))
|
|
TmpDTOS.Columns.Add("Observaciones", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaAtencion", GetType(String))
|
|
TmpDTOS.Columns.Add("CveUsuarioAtendio", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UsuarioAtendio", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaTermino", GetType(String))
|
|
TmpDTOS.Columns.Add("FechaEntrega", GetType(String))
|
|
TmpDTOS.Columns.Add("CveUsuarioEntrego", GetType(Integer))
|
|
TmpDTOS.Columns.Add("UsuarioEntrego", GetType(String))
|
|
TmpDTOS.Columns.Add("SeFacturara", GetType(String))
|
|
TmpDTOS.Columns.Add("SeSuperviso", GetType(String))
|
|
TmpDTOS.Columns.Add("Estatus", GetType(String))
|
|
TmpDTOS.Columns.Add("Archivo", GetType(String))
|
|
TmpDTOS.Columns.Add("ComentarioTecnico", GetType(String))
|
|
End Sub
|
|
Private Sub CreaDTMateriales()
|
|
TmpDTMaterialesOS = New DataTable
|
|
TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
|
|
|
TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveMaterial", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("Cantidad", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CveClasificacion", GetType(Integer))
|
|
TmpDTMaterialesOS.Columns.Add("CvePS", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("CveUM", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
|
|
TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'OI' - Crear Archivo "
|
|
Private Sub CrearArchivo(Archivo As String)
|
|
Dim ObjEventos As New ClsOIEventos
|
|
|
|
Dim path As String = Server.MapPath(String.Format(Archivo))
|
|
Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
|
|
|
|
DescargarArchivo(file)
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'Contratos' - Crear Archivo "
|
|
Private Sub CrearArchivoContratos(Archivo As String)
|
|
|
|
|
|
Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server
|
|
|
|
DescargarArchivo(file)
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "OP = 'OI' - Descargar Archivo "
|
|
Private Sub DescargarArchivo(File As System.IO.FileInfo)
|
|
If File.Exists Then 'set appropriate headers
|
|
Response.Clear()
|
|
Response.AddHeader("Content-Disposition", "attachment; filename=" & File.Name)
|
|
Response.AddHeader("Content-Length", File.Length.ToString())
|
|
Response.ContentType = "application/octet-stream"
|
|
|
|
'Select Case Path.GetExtension(File.Name).ToLower()
|
|
' Case ".jpg"
|
|
' Response.ContentType = "image/jpg"
|
|
' Case ".gif"
|
|
' Response.ContentType = "image/gif"
|
|
' Case ".png"
|
|
' Response.ContentType = "image/png"
|
|
' Case ".docx"
|
|
' Response.ContentType = "application/ms-word"
|
|
' Case ".xlsx"
|
|
' Response.ContentType = "application/ms-excel"
|
|
' Case ".xlsx"
|
|
' Response.ContentType = "application/ms-excel"
|
|
'End Select
|
|
|
|
Response.WriteFile(File.FullName)
|
|
Response.End() 'if file does not exist
|
|
Else
|
|
Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
|
|
|
|
End If 'nothing in the URL as HTTP GET
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'AFR' - AF"
|
|
|
|
Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
|
|
Dim ObjAF As New ClsAF
|
|
'Dim ObjSubProyecto As New ClsSubProyectos
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
Dim dtVC As DataTable = Nothing
|
|
Dim dtHijos As DataTable = Nothing
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim dr As DataRow = Nothing
|
|
Dim NomArchivo As String = "Reporte"
|
|
|
|
If ObjAF.GetActivosFijosResguardos(-1, CveAFR, -1, -1) Then
|
|
dtVC = ObjAF.DtResultados
|
|
End If
|
|
|
|
|
|
dr = dtVC.Rows(0)
|
|
|
|
Select Case Tipo
|
|
Case 1
|
|
params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
|
|
NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}"
|
|
|
|
If dtVC.Rows.Count > 0 Then
|
|
If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then
|
|
dtHijos = ObjAF.DtResultados
|
|
dtVC.Merge(dtHijos)
|
|
End If
|
|
End If
|
|
Case 2
|
|
params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
|
|
NomArchivo = $"Traslado_Folio{dr("Folio").ToString}"
|
|
Case 3
|
|
params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
|
|
NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}"
|
|
Case 4
|
|
params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
|
|
NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}"
|
|
|
|
If dtVC.Rows.Count > 0 Then
|
|
If ObjAF.GetActivosFijosHijos(UsuarioActual.CveEmpresa, dr("CveActivoFijo").ToString.ToEntero) Then
|
|
dtHijos = ObjAF.DtResultados
|
|
dtVC.Merge(dtHijos)
|
|
End If
|
|
End If
|
|
End Select
|
|
|
|
ObjAF.Dispose()
|
|
|
|
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
|
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Responsable", dr("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("Observaciones", dr("ObservacionesAF").ToString))
|
|
|
|
|
|
If UsuarioActual.CveEmpresa.Contiene(72) Then
|
|
Dim SBDomicilioSucursal As New StringBuilder()
|
|
Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
|
|
|
|
If DRSucursal IsNot Nothing Then
|
|
Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
|
|
Dim DomicilioSucursal As String = ""
|
|
|
|
SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle"))
|
|
If DRSucursal("NoExt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString.ToEntero)
|
|
If DRSucursal("NoInt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString.ToEntero)
|
|
If DRSucursal("Colonia").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString)
|
|
If DRSucursal("CP").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString)
|
|
If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal)
|
|
If DRSucursal("Pais").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString)
|
|
End If
|
|
|
|
params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString))
|
|
params.Add(New ReportParameter("RFC", dr("RFC").ToString))
|
|
params.Add(New ReportParameter("Puesto", dr("Puesto").ToString))
|
|
params.Add(New ReportParameter("PuestoEntrego", dr("PuestoEntrego").ToString))
|
|
params.Add(New ReportParameter("Departamento", dr("Departamento").ToString))
|
|
params.Add(New ReportParameter("DepartamentoEntrego", dr("DepartamentoEntrego").ToString))
|
|
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("Telefono", dr("Celular").ToString))
|
|
params.Add(New ReportParameter("Direccion", dr("DireccionPersonal").ToString))
|
|
params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString))
|
|
End If
|
|
|
|
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, NomArchivo)
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
|
|
End If
|
|
|
|
|
|
End Sub
|
|
Private Sub ImprimirPDFAFR2(CveAFR As Integer, Tipo As Integer)
|
|
|
|
Dim ObjAF As New ClsAF
|
|
|
|
Dim dtVC As DataTable = Nothing
|
|
Dim params As New List(Of ReportParameter)
|
|
Dim dr As DataRow = Nothing
|
|
Dim NomArchivo As String = "Reporte"
|
|
|
|
If Tipo = 1 OrElse Tipo = 2 Then
|
|
If ObjAF.GetActivosFijosResguardos(-1, -1, -1, CveAFR) Then
|
|
dtVC = ObjAF.DtResultados
|
|
End If
|
|
ElseIf Tipo = 3 OrElse Tipo = 4 Then
|
|
If ObjAF.GetActivosFijosResguardos(-1, -1, -1, -1, CveResguardo2:=CveAFR) Then
|
|
dtVC = ObjAF.DtResultados
|
|
End If
|
|
End If
|
|
ObjAF.Dispose()
|
|
|
|
dr = dtVC.Rows(0)
|
|
|
|
|
|
Select Case Tipo
|
|
Case 1
|
|
params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
|
|
NomArchivo = $"Resguardo_Folio{dr("Folio").ToString}"
|
|
Case 2
|
|
params.Add(New ReportParameter("Tipo", "TRASLADO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaInicio").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("NombreRecibio", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString} "))
|
|
NomArchivo = $"Traslado_Folio{dr("Folio").ToString}"
|
|
Case 3
|
|
params.Add(New ReportParameter("Tipo", "RECEPCION DE TRASLADO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Traslado de: {dr("SubProyecto").ToString} a {dr("SubProyectoDestino").ToString}"))
|
|
NomArchivo = $"Recepcion_Folio{dr("Folio").ToString}"
|
|
Case 4
|
|
params.Add(New ReportParameter("Tipo", "LIBERACION DE RESGUARDO DE ACTIVO FIJO"))
|
|
params.Add(New ReportParameter("Fecha", dr("FechaFin").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("NombreEntrego", dr("NombreEntrego").ToString))
|
|
params.Add(New ReportParameter("Subproyecto", $"Proyecto: {dr("SubProyecto").ToString}"))
|
|
NomArchivo = $"Liberacion_Folio{dr("Folio").ToString}"
|
|
End Select
|
|
|
|
params.Add(New ReportParameter("Subproyecto", dr("SubProyecto").ToString))
|
|
params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString))
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.NombreCorto))
|
|
params.Add(New ReportParameter("Folio", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Responsable", dr("Nombre").ToString))
|
|
params.Add(New ReportParameter("Observaciones", dr("Observaciones").ToString))
|
|
|
|
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'POL' "
|
|
Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
|
|
'Dim ObjConta As New ClsContabilidad
|
|
Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
|
|
Dim dtVC As DataTable
|
|
Dim dr As DataRow
|
|
dtVC = ObjPoliza.DtResultados
|
|
dr = dtVC.Rows(0)
|
|
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
|
|
params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
|
'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
|
|
'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
|
|
params.Add(New ReportParameter("Numero", dr("Folio").ToString))
|
|
params.Add(New ReportParameter("Moneda", ""))
|
|
params.Add(New ReportParameter("CodigoPostal", ""))
|
|
|
|
If UsuarioActual.CveEmpresa = 119 Then
|
|
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
|
End If
|
|
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza")
|
|
Else
|
|
ImprimirPDF("Empresas/Grales/Formatos/Polizas.rdlc", dtVC, params, "ReportePoliza")
|
|
End If
|
|
End If
|
|
|
|
ObjPoliza.Dispose()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = 'CAN' - CANCELACION"
|
|
Public Sub ImprimeCancelacion(CveVenta As Integer)
|
|
Dim 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 = drv("Total").ToString().ToDecimal()
|
|
Dim CveEstatusFactura = drv("CveEstatusFactura").ToString().ToEntero()
|
|
Dim FolioFiscal = drv("FolioFiscal").ToString()
|
|
Dim RFCReceptor = drv("RFCReceptor").ToString()
|
|
Dim SelloCancelacion = drv("SelloCancelacion").ToString()
|
|
Dim SelloSolicitudCancelacion = drv("SelloSolicitudCancelacion").ToString()
|
|
Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
|
|
Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
|
|
|
|
Dim RFCEmisor = UsuarioActual.Empresa.RFC
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\AcuseCancelacion.rdlc", ModExtensiones.DirectorioBaseEmpresas))
|
|
|
|
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
|
|
Titulo = "Acuse de solicitud de cancelación de CFDI"
|
|
EstadoCFDI = "Vigente"
|
|
|
|
'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")))
|
|
|
|
ImprimirPDF(Archivo.FullName, DtDetalle, 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)
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
|
|
|
|
Dim ObjIE As New ClsBancos()
|
|
Dim Tabla As DataTable
|
|
ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa)
|
|
Tabla = ObjIE.DtResultados
|
|
|
|
Dim params As New List(Of ReportParameter)
|
|
params.Add(New ReportParameter("Fecha", Now.ToDateTime.ToString))
|
|
params.Add(New ReportParameter("FechaIE", ObjIE.DtResultados(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
|
|
params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
|
|
|
|
If Archivo.Exists Then
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
|
|
Else
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
ImprimirPDF("Empresas\Grales\Formatos\DepositoCaja.rdlc", Tabla, params, "DepositoCaja")
|
|
End If
|
|
|
|
|
|
ObjIE.Dispose()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "I E C H E Q U E S"
|
|
|
|
Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
|
|
Dim CveTipoTransaccion = -1
|
|
Dim ObjIE As New ClsBancos()
|
|
ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa)
|
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
|
CveTipoTransaccion = ObjIE.CveTipoTransaccion
|
|
End If
|
|
Dim params As New List(Of ReportParameter)
|
|
|
|
|
|
If CveTipoTransaccion = 1 Then
|
|
Dim Folio = ObjIE.Folio
|
|
Dim Importe = ObjIE.Importe
|
|
Dim Observacion = ObjIE.Observaciones
|
|
Dim ImporteLetra = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
|
Dim Beneficiario = ObjIE.PagueseA
|
|
Dim Fecha = ObjIE.FechaDocumento.ToShortDateString
|
|
Dim CveCuenta = ObjIE.CveCuenta
|
|
params.Add(New ReportParameter("Fecha", Fecha))
|
|
params.Add(New ReportParameter("Folio", Folio))
|
|
params.Add(New ReportParameter("Beneficiario", Beneficiario))
|
|
params.Add(New ReportParameter("Importe", Importe.FormatoNumero))
|
|
params.Add(New ReportParameter("ImporteLetra", ImporteLetra.ToUpper))
|
|
params.Add(New ReportParameter("Observaciones", Observacion))
|
|
params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
|
|
|
|
Dim DtMovimientosPoliza As DataTable = Nothing
|
|
If UsuarioActual.CveEmpresa = 48 Then
|
|
'Movimientos del IE
|
|
If ObjIE.IDPoliza > 0 Then
|
|
|
|
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
|
|
If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then
|
|
Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError)
|
|
Else
|
|
DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable
|
|
End If
|
|
|
|
ObjConta.Dispose()
|
|
Else
|
|
DtMovimientosPoliza = New DataTable
|
|
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
|
|
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
|
|
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
|
|
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
|
|
|
|
Dim Dr = DtMovimientosPoliza.NewRow
|
|
Dr("CODIGO") = ""
|
|
Dr("Cuenta") = ""
|
|
Dr("Cargo") = 0
|
|
Dr("Abono") = 0
|
|
DtMovimientosPoliza.Rows.Add(Dr)
|
|
End If
|
|
ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
|
|
Dim PreP As New ClsContabilidad
|
|
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
|
|
DtMovimientosPoliza = New DataTable
|
|
DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String))
|
|
DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String))
|
|
DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
|
|
DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
|
|
|
|
If PreP.DtResultados.Rows.Count > 0 Then
|
|
|
|
For Each drt As DataRow In PreP.DtResultados.Rows
|
|
Dim Dr = DtMovimientosPoliza.NewRow
|
|
Dr("CODIGO") = drt("CuentaCodigo")
|
|
Dr("Cuenta") = drt("CuentaNombre")
|
|
Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
|
|
Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
|
|
DtMovimientosPoliza.Rows.Add(Dr)
|
|
|
|
Next
|
|
|
|
|
|
End If
|
|
End If
|
|
PreP.Dispose()
|
|
End If
|
|
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta))
|
|
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
|
|
Else
|
|
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
|
|
ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio))
|
|
End If
|
|
|
|
|
|
ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then
|
|
|
|
Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String
|
|
Dim FechaExpedicion As Date = Now
|
|
Dim Importe As Double
|
|
Dim FormatoCheque As String = ""
|
|
|
|
Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer
|
|
Dim tIdPoliza As Integer
|
|
Dim DtMovimientosPoliza As DataTable = Nothing
|
|
Dim RFC As String = ""
|
|
Dim Correo As String = ""
|
|
Dim CLABE As String = ""
|
|
Dim NoSucursal As String = ""
|
|
Dim Telefono As String = ""
|
|
Dim IVA As Double = 0
|
|
|
|
Folio = ""
|
|
TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = ""
|
|
CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0
|
|
Ruta = UsuarioActual.Empresa.Ruta
|
|
|
|
PagueseA = ObjIE.PagueseA
|
|
Folio = ObjIE.Folio
|
|
Importe = ObjIE.Importe
|
|
CveTipoTransaccion = ObjIE.CveTipoTransaccion
|
|
Banco = ObjIE.Banco
|
|
NumCuenta = ObjIE.DepositoCuenta
|
|
If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE
|
|
CLABE = ObjIE.DepositoCLABE
|
|
If CLABE = "" Then CLABE = ObjIE.DepositoReferencia
|
|
NoSucursal = ObjIE.DepositoSucursal
|
|
RefCrediproveedor = ObjIE.DepositoRefCrediProveedor
|
|
TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
|
FechaExpedicion = ObjIE.FechaDocumento
|
|
Observacion = ObjIE.Observaciones
|
|
UsuarioRegistro = ObjIE.UsuarioNombre
|
|
SubProyecto = ObjIE.SubProyecto
|
|
AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")
|
|
NotificarA = ObjIE.NotificarA
|
|
tIdPoliza = ObjIE.IDPoliza
|
|
|
|
Dim PreP As New ClsContabilidad
|
|
If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
|
|
If PreP.DtResultados.Rows.Count > 0 Then
|
|
CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero
|
|
CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero
|
|
|
|
IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA
|
|
|
|
If CveProveedor > 0 Then
|
|
Dim Prov As New ClsCompProveedores
|
|
If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then
|
|
If Prov.DtResultados.Rows.Count > 0 Then
|
|
RFC = Prov.DtResultados.Rows(0)("RFC").ToString
|
|
Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString
|
|
End If
|
|
End If
|
|
Prov.Dispose()
|
|
End If
|
|
|
|
If CvePersonal > 0 Then
|
|
Dim RH As New ClsRH
|
|
If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
|
|
If RH.DtResultados.Rows.Count > 0 Then
|
|
Correo = RH.DtResultados.Rows(0)("Correo").ToString
|
|
Banco = RH.DtResultados.Rows(0)("Banco").ToString
|
|
NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString
|
|
CLABE = RH.DtResultados.Rows(0)("CLABE").ToString
|
|
End If
|
|
|
|
|
|
End If
|
|
|
|
RH.Dispose()
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
PreP.Dispose()
|
|
|
|
|
|
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
|
|
params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
|
|
params.Add(New ReportParameter("PagueseA", PagueseA))
|
|
params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
|
|
params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
|
|
params.Add(New ReportParameter("Banco", Banco))
|
|
params.Add(New ReportParameter("NumCuenta", NumCuenta))
|
|
params.Add(New ReportParameter("CLABE", CLABE))
|
|
params.Add(New ReportParameter("Concepto", Observacion))
|
|
params.Add(New ReportParameter("Factura", ""))
|
|
params.Add(New ReportParameter("RFC", RFC))
|
|
params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}"))
|
|
params.Add(New ReportParameter("NumSucursal", NoSucursal))
|
|
params.Add(New ReportParameter("Correo", Correo))
|
|
params.Add(New ReportParameter("Telefono", Telefono))
|
|
params.Add(New ReportParameter("NotifiqueA", NotificarA))
|
|
params.Add(New ReportParameter("Obra", SubProyecto))
|
|
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
|
|
params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
|
|
|
|
If UsuarioActual.CveEmpresa = 66 Then
|
|
params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor))
|
|
End If
|
|
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta))
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
|
|
Else
|
|
ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE))
|
|
End If
|
|
|
|
ElseIf CveTipoTransaccion.Contiene(6) Then
|
|
'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS
|
|
Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = ""
|
|
Dim Ruta As String = UsuarioActual.Empresa.Ruta
|
|
Dim FechaExpedicion As Date = Now
|
|
Dim Importe As Double
|
|
Dim FormatoCheque As String = ""
|
|
|
|
DtDetalle = Nothing
|
|
|
|
PagueseA = ObjIE.PagueseA
|
|
Folio = ObjIE.Folio
|
|
Importe = ObjIE.Importe
|
|
CveTipoTransaccion = ObjIE.CveTipoTransaccion
|
|
|
|
TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
|
|
Observacion = ObjIE.Observaciones
|
|
UsuarioRegistro = ObjIE.UsuarioNombre
|
|
|
|
params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy")))
|
|
params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio)))
|
|
params.Add(New ReportParameter("PagueseA", PagueseA))
|
|
params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}"))
|
|
params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper))
|
|
|
|
params.Add(New ReportParameter("Concepto", Observacion))
|
|
params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro))
|
|
params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString))
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta))
|
|
If Archivo.Exists Then
|
|
ImprimirPDF(String.Format("{0}Formatos\ComprobanteEgreso.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE))
|
|
'Else
|
|
' ImprimirPDF("Empresas\Grales\Formatos\ComprobanteEgreso.rdlc", DtDetalle, params, String.Format("PagoEfectivo-{0}", CveIE))
|
|
End If
|
|
End If
|
|
|
|
ObjIE.Dispose()
|
|
|
|
End Sub
|
|
|
|
Private Sub ImprimeMov(CveIE As Integer)
|
|
Dim ObjIE As New ClsBancos()
|
|
Dim DtGvRH As New DataTable
|
|
Dim DtComprobacion As New DataTable
|
|
Dim ParamComprobacion As New DataTable
|
|
|
|
'Movimientos Relacionados de Comprobacion - Hijo
|
|
If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then
|
|
DtGvRH = ObjIE.DtResultados
|
|
End If
|
|
|
|
If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then
|
|
|
|
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
|
ParamComprobacion = ObjIE.DtResultados
|
|
End If
|
|
|
|
Dim ObjMov As New ClsMovimientos
|
|
For Each dr As DataRow In DtGvRH.Rows
|
|
If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then
|
|
DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString))
|
|
End If
|
|
Next
|
|
ObjMov.Dispose()
|
|
|
|
Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta))
|
|
'Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
|
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
|
|
Dim 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", Now.ToDateTime.ToString))
|
|
params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString))
|
|
params.Add(New ReportParameter("CveFyE", "0")) '
|
|
|
|
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
|
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
|
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
|
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
|
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString.ToDate.ToShortDateString))
|
|
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
|
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
|
|
|
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
|
|
Else
|
|
params.Add(New ReportParameter("Numero", "")) '
|
|
params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString))
|
|
params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto")))
|
|
params.Add(New ReportParameter("Fecha", Now.Date.ToString))
|
|
params.Add(New ReportParameter("Elaboro", ""))
|
|
params.Add(New ReportParameter("Autorizo", ""))
|
|
params.Add(New ReportParameter("ElaboroPuesto", ""))
|
|
params.Add(New ReportParameter("AutorizoPuesto", ""))
|
|
ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras")
|
|
End If
|
|
Else
|
|
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString))
|
|
|
|
params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
|
params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString))
|
|
params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString))
|
|
params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString))
|
|
params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString))
|
|
params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString))
|
|
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF")
|
|
End If
|
|
Else
|
|
If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
|
|
If ObjIE.DtResultados.Rows.Count > 0 Then
|
|
|
|
Dim reportDataSetsList As New List(Of ReportDataSource)
|
|
|
|
Dim dtMovs As New DataTable
|
|
Dim Mov As New ClsContabilidad
|
|
If Mov.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
|
|
|
|
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312)")
|
|
|
|
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
|
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
|
|
For Each Dr As DataRow In dtMovs.Rows
|
|
Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
|
|
Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
|
Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
|
Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
|
|
Next
|
|
End If
|
|
|
|
End If
|
|
Mov.Dispose()
|
|
Dim rds = New ReportDataSource("DataSet1", dtMovs)
|
|
reportDataSetsList.Add(rds)
|
|
|
|
Dim dtnc As New DataTable
|
|
Dim ObjCompra As New ClsCompras()
|
|
If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
|
|
dtnc = ObjCompra.DtResultados
|
|
End If
|
|
ObjCompra.Dispose()
|
|
Dim rds2 = New ReportDataSource("DataSet2", dtnc)
|
|
reportDataSetsList.Add(rds2)
|
|
dtnc.Dispose()
|
|
|
|
Dim paramList As New List(Of ReportParameter)
|
|
With paramList
|
|
|
|
|
|
Dim 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
|
|
|
|
.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
|
.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
|
.Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True))
|
|
.Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True))
|
|
.Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True))
|
|
.Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True))
|
|
.Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True))
|
|
.Add(New ReportParameter("Folio", ObjIE.Folio, True))
|
|
.Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True))
|
|
|
|
|
|
If Imagen.Exists Then
|
|
.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
End With
|
|
dtMovs.Dispose()
|
|
|
|
ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
|
|
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
|
|
DtGvRH.Dispose()
|
|
DtComprobacion.Dispose()
|
|
ParamComprobacion.Dispose()
|
|
|
|
ObjIE.Dispose()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "OP = RECIBO DE PAGOS"
|
|
Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)
|
|
|
|
PDFReciboDePagos(CveVenta, CveIE, -1)
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = VTA - PyME"
|
|
|
|
' 04/05/2018 - Pruebas de impresion de factura PyME
|
|
Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
|
|
Dim Directorio1 As String = String.Format("{0}Formatos\Factura.mrt", UsuarioActual.Empresa.Ruta)
|
|
Dim File As FileInfo = New FileInfo(Directorio1)
|
|
|
|
If File.Exists Then
|
|
Dim Reporte As StiReport = New StiReport()
|
|
Reporte.Load(Directorio1)
|
|
Reporte.Dictionary.DataSources.Clear()
|
|
|
|
Dim ds As DataSet = New DataSet()
|
|
Venta.DtDetalle.TableName = "Datos"
|
|
|
|
ds.Tables.Add(Venta.DtDetalle)
|
|
|
|
Reporte.RegData(ds)
|
|
|
|
Reporte.Dictionary.Variables("Empresa").Value = UsuarioActual.Empresa.Empresa
|
|
|
|
Reporte.Dictionary.Variables("Tipo").Value = "Ingreso"
|
|
Reporte.Dictionary.Variables("RFC").Value = UsuarioActual.Empresa.RFC
|
|
Reporte.Dictionary.Variables("Serie").Value = Venta.Serie
|
|
Reporte.Dictionary.Variables("Folio").Value = Venta.Folio.ToString()
|
|
|
|
Reporte.Dictionary.Variables("ClienteNombre").Value = Venta.Cliente.Nombre
|
|
Reporte.Dictionary.Variables("ClienteDireccion").Value = Venta.Cliente.Direccion
|
|
Reporte.Dictionary.Variables("ClienteLugar").Value = Venta.Cliente.Ciudad
|
|
Reporte.Dictionary.Variables("ClienteRFC").Value = Venta.Cliente.RFC
|
|
|
|
Reporte.Dictionary.Variables("DomicilioExpedicion").Value = Venta.SubProyecto.Direccion
|
|
|
|
Dim SubtTotal As Double = (Venta.DtDetalle.SUM("PU") * Venta.DtDetalle.SUM("Cantidad")) '* 0.16 lleva el IVA?
|
|
Dim IVA As Double = SubtTotal * 0.16 'lleva IVA?
|
|
Dim Total As Double = SubtTotal + IVA
|
|
|
|
'Reporte.Dictionary.Variables("Importe").Value =
|
|
Reporte.Dictionary.Variables("ImporteLetra").Value = Total.Texto2Letras()
|
|
|
|
Reporte.Dictionary.Variables("SubTotal").Value = SubtTotal.ToString()
|
|
Reporte.Dictionary.Variables("IVA").Value = IVA.ToString()
|
|
Reporte.Dictionary.Variables("Total").Value = Total.ToString()
|
|
|
|
Reporte.Dictionary.Variables("UsoCFDI").Value = Venta.UsoCFDI
|
|
Reporte.Dictionary.Variables("MetodoPago").Value = Venta.MetodoPago33
|
|
Reporte.Dictionary.Variables("FormaPago").Value = Venta.FormaPago33
|
|
|
|
Reporte.Dictionary.Variables("QR").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
|
|
Reporte.Dictionary.Variables("SelloCFDI").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsadlajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
|
|
Reporte.Dictionary.Variables("SelloSAT").Value = "lajgkfjsldasdhjsakd229312974tedghjbsadskuuhdkjsad"
|
|
Reporte.Dictionary.Synchronize()
|
|
|
|
StiReportResponse.ResponseAsPdf(Me, Reporte)
|
|
Else
|
|
RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "OP = ENTREGAS - Entregas por realizar"
|
|
Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
|
|
Dim Correcto As Boolean = False
|
|
Dim DtPaqueteriasGuias As DataTable = Nothing
|
|
Dim ObjGeneral As New ClsGenerales
|
|
If ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa, CveAsignacionEntrega) Then
|
|
DtPaqueteriasGuias = ObjGeneral.DtResultados
|
|
Correcto = True
|
|
End If
|
|
ObjGeneral.Dispose()
|
|
If Correcto Then
|
|
Dim RepParams As New List(Of ReportParameter)
|
|
RepParams.Add(New ReportParameter("Fecha", DateTime.Today.ToString()))
|
|
RepParams.Add(New ReportParameter("AsignadoA", pUsuarioEntregar))
|
|
RepParams.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
|
|
|
ImprimirPDF($"{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 d As New Document
|
|
Using Copy As New PdfCopy(d, ms)
|
|
d.Open()
|
|
If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
|
|
If ObjInventarios.DtResultados IsNot Nothing Then
|
|
For Each DetalleRow As DataRow In ObjInventarios.DtResultados.Rows
|
|
Dim CvePS As Integer = DetalleRow.Item("CvePS").ToString.ToEntero
|
|
Dim Lote As String = DetalleRow.Item("Lote").ToString
|
|
Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
|
|
PS = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
|
|
If Modalidad = "Individual" Then
|
|
Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
|
|
|
|
Dim reader As New PdfReader(reporteByte)
|
|
Dim Paginas As Integer = reader.NumberOfPages
|
|
Dim Contador As Integer = 0
|
|
While Contador < Paginas
|
|
Contador += 1
|
|
Copy.AddPage(Copy.GetImportedPage(reader, Contador))
|
|
End While
|
|
Else
|
|
Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
|
|
|
|
For contador As Integer = 0 To Cant
|
|
Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
|
|
|
|
Dim reader As New PdfReader(reporteByte)
|
|
Dim Paginas As Integer = reader.NumberOfPages
|
|
Dim Cont As Integer = 0
|
|
While Cont < Paginas
|
|
Cont += 1
|
|
Copy.AddPage(Copy.GetImportedPage(reader, Cont))
|
|
End While
|
|
Next
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
d.Close()
|
|
|
|
End Using
|
|
End Using
|
|
All = ms.ToArray()
|
|
End Using
|
|
ImprimirbytesPDF(All, 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 d As New Document
|
|
Using Copy As New PdfCopy(d, ms)
|
|
d.Open()
|
|
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 Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
|
|
|
|
Dim reader As New PdfReader(reporteByte)
|
|
Dim Paginas As Integer = reader.NumberOfPages
|
|
Dim Contador As Integer = 0
|
|
While Contador < Paginas
|
|
Contador += 1
|
|
Copy.AddPage(Copy.GetImportedPage(reader, Contador))
|
|
End While
|
|
Else
|
|
Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
|
|
|
|
For contador As Integer = 0 To Cant
|
|
Dim reporteByte As Byte() = GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS)
|
|
|
|
Dim reader As New PdfReader(reporteByte)
|
|
Dim Paginas As Integer = reader.NumberOfPages
|
|
Dim Cont As Integer = 0
|
|
While Cont < Paginas
|
|
Cont += 1
|
|
Copy.AddPage(Copy.GetImportedPage(reader, Cont))
|
|
End While
|
|
Next
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
d.Close()
|
|
|
|
End Using
|
|
End Using
|
|
All = ms.ToArray()
|
|
End Using
|
|
ImprimirbytesPDF(All, 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 = 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")))
|
|
Return StreamPDF("Empresas/Grales/Formatos/EtiquetaDeRecepcion.rdlc", 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 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 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))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
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 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 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))
|
|
|
|
If Imagen.Exists Then
|
|
params.Add(New ReportParameter("LogoPath", logouri))
|
|
Else
|
|
params.Add(New ReportParameter("LogoPath", ""))
|
|
End If
|
|
|
|
ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF", Content_Disposition:="inline")
|
|
End Sub
|
|
#End Region
|
|
|
|
End Class
|