si el cvecliente=-1, en carga cleinte, que no corra la consulta
This commit is contained in:
rrene
@@ -1178,6 +1178,7 @@ Namespace Extensiones
|
||||
Else
|
||||
TmpDr = dt.Rows(0)
|
||||
End If
|
||||
dt.Dispose()
|
||||
End If
|
||||
|
||||
Return TmpDr
|
||||
@@ -1190,6 +1191,7 @@ Namespace Extensiones
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
dt.PrimaryKey = New DataColumn() {dt.Columns(PrimaryKey)}
|
||||
TmpDr = dt.Rows.Find(Valor)
|
||||
dt.Dispose()
|
||||
End If
|
||||
|
||||
Return TmpDr
|
||||
@@ -1250,6 +1252,7 @@ Namespace Extensiones
|
||||
Else
|
||||
Retorno = dt.Rows(0)(Columna).ToString
|
||||
End If
|
||||
dt.Dispose()
|
||||
End If
|
||||
|
||||
Return Retorno
|
||||
|
||||
@@ -1,23 +0,0 @@
|
||||
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Reportes.aspx.vb" Inherits="Bancos_Reportes" %>
|
||||
|
||||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
<rvweb:ReportViewer ID="rv" runat="server" Width="1000px" Font-Names="Verdana"
|
||||
Font-Size="8pt" Height="1000px" ToolBarItemBorderColor=""
|
||||
BackColor="#CCCCCC">
|
||||
<LocalReport EnableExternalImages="True">
|
||||
</LocalReport>
|
||||
</rvweb:ReportViewer>
|
||||
</asp:Content>
|
||||
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
|
||||
</asp:Content>
|
||||
@@ -1,217 +0,0 @@
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
Partial Class Bancos_Reportes
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
'CType(Me.Master, BaseMasterPage).EsPopup = True
|
||||
If Not Page.IsPostBack Then
|
||||
If Request("Opcion") IsNot Nothing Then
|
||||
Select Case Request("Opcion")
|
||||
Case "ImprimeMov"
|
||||
If Request("CveIE") IsNot Nothing AndAlso Request("CveIE").ToString.ToEntero > 0 Then
|
||||
ImprimeMov(Request("CveIE").ToEntero)
|
||||
End If
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
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 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))
|
||||
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 dtMovs As DataTable
|
||||
'obtengo los movimientos pagados
|
||||
|
||||
Dim Mov As New ClsContabilidad
|
||||
|
||||
If Mov.GetPrePolizasDetalle(-1, CveIE) Then
|
||||
|
||||
dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,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
|
||||
|
||||
'TblBancos.ExportToPDF("Listado")
|
||||
Dim dtnc As New DataTable
|
||||
Dim ObjCompra As New ClsCompras()
|
||||
If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then
|
||||
dtnc = ObjCompra.DtResultados
|
||||
End If
|
||||
ObjCompra.Dispose()
|
||||
|
||||
'cargo el reporte con los datos
|
||||
|
||||
Dim rds2 = New ReportDataSource("DataSet2", dtnc)
|
||||
Dim rds = New ReportDataSource("DataSet1", dtMovs)
|
||||
rv.LocalReport.DataSources.Clear()
|
||||
rv.LocalReport.DataSources.Add(rds)
|
||||
rv.LocalReport.DataSources.Add(rds2)
|
||||
rv.LocalReport.ReportPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\rptChequeMovimientos.rdlc"
|
||||
rv.LocalReport.Refresh()
|
||||
|
||||
Dim paramList As New List(Of ReportParameter)
|
||||
With paramList
|
||||
'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 LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa)
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica))
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
.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
|
||||
|
||||
rv.LocalReport.SetParameters(paramList)
|
||||
rv.LocalReport.Refresh()
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Mov.Dispose()
|
||||
GeneraPDF(String.Format("IE{0}", CveIE))
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjIE.Dispose()
|
||||
End Sub
|
||||
Public Sub GeneraPDF(Optional Nombre As String = "Reporte")
|
||||
|
||||
Dim warnings As Warning() = Nothing
|
||||
Dim streamids As String() = Nothing
|
||||
Dim mimeType As String = Nothing
|
||||
Dim encoding As String = Nothing
|
||||
Dim extension As String = Nothing
|
||||
Dim fileName As String = Nombre
|
||||
Dim bytes As Byte()
|
||||
Try
|
||||
bytes = Me.rv.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
|
||||
|
||||
Response.Buffer = True
|
||||
Response.Clear()
|
||||
Response.ContentType = mimeType
|
||||
Response.AddHeader("content-disposition", String.Format("attachment; filename={0}.{1}", fileName, extension))
|
||||
Response.BinaryWrite(bytes) ' create the file
|
||||
Response.Flush() ' send it to the client to download
|
||||
Response.End()
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
BIN
Bin/GoCfdi.dll
BIN
Bin/GoCfdi.dll
Binary file not shown.
@@ -4809,7 +4809,7 @@ Partial Class Ventas
|
||||
End Sub
|
||||
Private Sub CargaCliente(CveCliente As Integer, Optional Estatus As Integer = -1)
|
||||
|
||||
|
||||
If CveCliente <= 0 Then Exit Sub
|
||||
|
||||
RBLPago.Items(0).Enabled = True
|
||||
|
||||
@@ -9010,7 +9010,7 @@ Partial Class Ventas
|
||||
i += 1
|
||||
Next
|
||||
|
||||
Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto)(0)("AplicaComercioExterior").ToString() = "True", True, False)
|
||||
Dim AplicaComercioExteriorSubProyecto As Boolean = If(GlobalDTSubProyectos(-1, Obj.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa)(0)("AplicaComercioExterior").ToString() = "True", True, False)
|
||||
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = AplicaComercioExteriorSubProyecto
|
||||
If Obj.Cliente.AplicaComercioExterior And AplicaComercioExteriorSubProyecto Then
|
||||
'DATOS GENERALES
|
||||
@@ -9026,8 +9026,8 @@ Partial Class Ventas
|
||||
'EMISOR
|
||||
Dim Dr As DataRow
|
||||
Dr = Nothing
|
||||
If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero()).Rows.Count > 0 Then
|
||||
Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero())(0)
|
||||
If GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count > 0 Then
|
||||
Dr = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa)(0)
|
||||
End If
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.CURP = UsuarioActual.Empresa.CURP
|
||||
Timbre.Complementos.ComercioExterior11.Emisor.Calle = Dr("Calle").ToString()
|
||||
@@ -13803,7 +13803,6 @@ Partial Class Ventas
|
||||
ObjPS.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
If PrecioSugerido = 0 Then
|
||||
Dim ObjInventarios As New ClsInventarios
|
||||
Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
|
||||
@@ -13814,7 +13813,7 @@ Partial Class Ventas
|
||||
PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS
|
||||
End If
|
||||
End If
|
||||
|
||||
CvePrecioLista = CvePrecioListaPS
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@@ -64,6 +64,10 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user