diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index 0c2141fd0..ad51f25bc 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -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
diff --git a/Bancos/Reportes.aspx b/Bancos/Reportes.aspx
deleted file mode 100644
index a998eb3df..000000000
--- a/Bancos/Reportes.aspx
+++ /dev/null
@@ -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" %>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/Bancos/Reportes.aspx.vb b/Bancos/Reportes.aspx.vb
deleted file mode 100644
index b96bf50c4..000000000
--- a/Bancos/Reportes.aspx.vb
+++ /dev/null
@@ -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
diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll
index 6fabb13d8..11a4ee92f 100644
Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a95238a33..ea5a9df12 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -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
diff --git a/vwd.webinfo b/vwd.webinfo
index c8632d677..baffb8c51 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -64,6 +64,10 @@
+
+
+
+