AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://rpimienta@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Desarrollo2019
2019-08-20 11:24:48 -07:00
parent c5ff2c78ec c419c9e8fd
commit 1ddc63bf18
2 changed files with 242 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

189
Compras/PopUpVerFactura.aspx.vb
View File

@@ -1632,6 +1632,7 @@ Partial Class PopUpVerFactura
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))
@@ -1664,7 +1665,58 @@ Partial Class PopUpVerFactura
End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
Else
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)
Dim TipoResponsable As String = ""
Dim Responsable As String = ""
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
End If
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha))
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
Dim Mov As New ClsInventarios
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
TipoResponsable = "Personal"
Responsable = Recibio
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
TipoResponsable = "Cliente"
Responsable = Mov.DtResultados(0)("Nombre").ToString
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
TipoResponsable = "Proveedor"
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
End If
End If
Mov.Dispose()
params.Add(New ReportParameter("Responsable", Responsable))
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
End If
Case 7 ' SALIDA RESGUARDO
If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
Dim params As New List(Of ReportParameter)
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then
params.Add(New ReportParameter("Folio", Folio))
@@ -1698,6 +1750,57 @@ Partial Class PopUpVerFactura
End If
ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
Else
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)
Dim TipoResponsable As String = ""
Dim Responsable As String = ""
Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc"
If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
End If
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha))
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
Dim Mov As New ClsInventarios
If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then
If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then
TipoResponsable = "Personal"
Responsable = Recibio
'Responsable = Mov.DtResultados(0)("RazonSocial").ToString
ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then
TipoResponsable = "Cliente"
Responsable = Mov.DtResultados(0)("Nombre").ToString
ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then
TipoResponsable = "Proveedor"
Responsable = Mov.DtResultados(0)("RazonSocial").ToString
End If
End If
Mov.Dispose()
params.Add(New ReportParameter("Responsable", Responsable))
params.Add(New ReportParameter("TipoResponsable", TipoResponsable))
ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
End If
Case 8, 26 ' T R A S L A D O - S A L I D A
Dim params As New List(Of ReportParameter)
@@ -2275,7 +2378,7 @@ Partial Class PopUpVerFactura
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)
@@ -2313,55 +2416,57 @@ Partial Class PopUpVerFactura
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 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"
'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
'If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
' Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
'End If
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
'If Imagen.Exists Then
' params.Add(New ReportParameter("LogoPath", logouri))
'Else
' params.Add(New ReportParameter("LogoPath", ""))
'End If
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Folio", Folio))
params.Add(New ReportParameter("Fecha", Fecha))
'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString))
params.Add(New ReportParameter("AlmacenOrigen", Almacen))
params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino))
'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()
'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))
'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
'ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios")
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)

17
SIGGIT.sln
View File

@@ -1,10 +1,14 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 14
VisualStudioVersion = 14.0.25420.1
# Visual Studio 15
VisualStudioVersion = 15.0.27703.2035
MinimumVisualStudioVersion = 10.0.40219.1
Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{FDC5C912-427E-4541-B08F-04591188AA00}"
Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}"
ProjectSection(WebsiteProperties) = preProject
SccProjectName = ""$/localhost", CAAAAAAA"
SccAuxPath = ""
SccLocalPath = "."
SccProvider = "MSSCCI:Microsoft Visual SourceSafe"
UseIISExpress = "false"
TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.0"
Debug.AspNetCompiler.VirtualPath = "/localhost"
@@ -29,10 +33,13 @@ Global
Debug|Any CPU = Debug|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{FDC5C912-427E-4541-B08F-04591188AA00}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{FDC5C912-427E-4541-B08F-04591188AA00}.Debug|Any CPU.Build.0 = Debug|Any CPU
{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.Build.0 = Debug|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
GlobalSection(ExtensibilityGlobals) = postSolution
SolutionGuid = {332C883B-3BAC-495B-9E95-82357599CF89}
EndGlobalSection
EndGlobal