Compras.aspx.vb Se agrega asignacion de subProyecto
This commit is contained in:
Oscar Irigoyen
@@ -310,7 +310,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
|
||||
End If
|
||||
|
||||
ImprimeImPrimePrePolizaS(CvePrePoliza)
|
||||
|
||||
|
||||
|
||||
Exit Sub
|
||||
@@ -3321,172 +3321,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
'End Sub
|
||||
|
||||
|
||||
Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)
|
||||
|
||||
|
||||
|
||||
|
||||
If Not CvePrePoliza > 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
'ObjContabilidad.Dispose()
|
||||
|
||||
Dim rutaArchivo As String = ""
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim Bytes As Byte() = Nothing
|
||||
Dim DtDetalle As New DataTable
|
||||
Dim CveTipoPolizaImp As Integer = 0
|
||||
Dim FolioPoliza As String = ""
|
||||
Dim ConceptoPolizaImp As String = ""
|
||||
Dim CveMonedaImp As Integer = 0
|
||||
Dim TipoPolizaString = ""
|
||||
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
|
||||
Dim TipoPolImp As String = ""
|
||||
|
||||
|
||||
If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
|
||||
|
||||
If dr IsNot Nothing Then
|
||||
|
||||
TipoPolImp = If(dr("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(dr("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
|
||||
CveTipoPolizaImp = dr("CveTipoPoliza").ToString.ToEntero
|
||||
ConceptoPolizaImp = dr("Concepto")
|
||||
FolioPoliza = dr("FolioPoliza").ToString
|
||||
CveMonedaImp = dr("CveMoneda").ToString.ToEntero
|
||||
|
||||
Else
|
||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
ObjContabilidad.Dispose()
|
||||
|
||||
Select Case CveTipoPolizaImp
|
||||
Case 1
|
||||
TipoPolizaString = "I"
|
||||
Exit Select
|
||||
Case 2
|
||||
TipoPolizaString = "E"
|
||||
Exit Select
|
||||
Case Else
|
||||
TipoPolizaString = "D"
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then
|
||||
|
||||
|
||||
Dim Archivo As System.IO.FileInfo
|
||||
|
||||
Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
|
||||
|
||||
Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim dr As DataRow
|
||||
DtDetalle = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden")
|
||||
dr = DtDetalle.Rows(0)
|
||||
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
|
||||
params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
|
||||
params.Add(New ReportParameter("Numero", FolioPoliza))
|
||||
params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
|
||||
params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
|
||||
params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
|
||||
|
||||
params.Add(New ReportParameter("Folio", FolioPoliza))
|
||||
|
||||
|
||||
If Logo.Exists Then
|
||||
params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("pImg", ""))
|
||||
End If
|
||||
|
||||
|
||||
If Archivo.Exists Then
|
||||
rutaArchivo = Archivo.FullName
|
||||
Else
|
||||
rutaArchivo = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc"
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
|
||||
|
||||
Else
|
||||
|
||||
Dim Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
params = New List(Of ReportParameter)
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
|
||||
If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim dr As DataRow
|
||||
DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
|
||||
dr = DtDetalle.Rows(0)
|
||||
Dim ruta As String = ""
|
||||
|
||||
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))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(141) Then
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
|
||||
Else
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
||||
End If
|
||||
|
||||
FolioPoliza = dr("FolioPoliza").ToString
|
||||
params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
|
||||
params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
End If
|
||||
|
||||
If Archivo.Exists Then
|
||||
rutaArchivo = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
|
||||
Else
|
||||
rutaArchivo = "Empresas/Grales/Formatos/Polizas.rdlc"
|
||||
End If
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
ImprimirPDF(rutaArchivo, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user