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

merge

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-10-15 20:06:24 -07:00
parent 184471fc7b 5aa711c5df
commit fa5d2042e2
38 changed files with 1048 additions and 539 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Compras/ProveedoresAuxiliar.aspx.vb
View File

@@ -118,23 +118,19 @@ Partial Class Compras_ProveedoresAuxiliar
Dim OpcionP = If(DdlOpcion.SelectedValue = "-1", "", $"&emsp;<b>Opción:</b> {DdlOpcion.SelectedItem.Text}")
Dim TipoProv = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
Dim ContaP = If(DdlOpcionContabilizable.SelectedValue = "-1", "", $"&emsp;<b>Contabilizable:</b> {DdlOpcionContabilizable.SelectedItem.Text}")
If DtDatos IsNot Nothing AndAlso DtDatos.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.ToString))
params.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion)
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.ToString))
params.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}{OpcionP}{TipoProv}{ContaP}"))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", logouri))
Else
Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion)
End Sub
Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
GenerarPDF("PDF")

15
Compras/eFacturas.aspx.vb
View File

@@ -2893,7 +2893,10 @@ Partial Class Compras_eFacturas
If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then
BtnVincularPago.Visible = False
If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then
DivVincularPagoManualmente.Visible = True
End If
MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. "
Exit For
@@ -2902,24 +2905,14 @@ Partial Class Compras_eFacturas
Next
If MSGComplemento.Trim.Length > 0 Then
' BtnVincularPago.Visible = False
ViculacionConPUE = True
End If
'saco la información de lo vinculado en el ie
ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
DiferenciaImportes = Monto - ImporteIES
ObjCompras.Dispose()