@@ -872,6 +981,8 @@
+
+
--%>
+
+
+
+
@@ -1734,6 +1736,12 @@
+
+
+
+ Devolución múltiple 
+
+
@@ -1816,6 +1824,7 @@
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index f5df70545..d5970bf8a 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -828,6 +828,8 @@ Partial Class Compras_Proveedores
HplAbonarMasivo.NavigateUrl = String.Format("/Bancos/ProveedoresAbonar.aspx?CveProveedor={0}&Serie={1}&CveMoneda={2}", CveProveedor, Serie, CveMoneda)
+ HplAbonarMasivoNotas.NavigateUrl = String.Format("/Bancos/IE.aspx?OPCION=DevDinC&CveProveedor={0}&Masivo={1}", CveProveedor, 1)
+
TxtCorreoCobranza.Text = ObjProveedor.CorreoCobranza
LblUsuarioPortalCliente.Text = ObjProveedor.CorreoCobranza
LblUsuarioPortalCliente.Attributes("style") = "font-weight: bold;"
@@ -1112,6 +1114,14 @@ Partial Class Compras_Proveedores
DtAntNCH = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
GvAH.DataSource = DtAntNCH
End If
+
+
+ ' e.Row.DBCampo("TipoDocto") = "NC"
+ If ObjMovtos.DtResultados.FiltraParametros("TipoDocto = 'NC'").Rows.Count > 0 And UsuarioActual.TienePermisoProceso(273) Then
+ HplAbonarMasivoNotas.Visible = True
+ UpAnticipos.Update()
+ End If
+
Else
GvA.DataSource = Nothing
GvAH.DataSource = Nothing
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 001743e8f..592f5814e 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -745,7 +745,7 @@ Partial Class Compras_ReembolsosComprobaciones
Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago
- If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+ If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
MsgError = "Detalle"
End If
End If
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 6eb9ba7a5..d2acbfd5f 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2653,7 +2653,7 @@ Partial Class Inventarios_EntregaAlmacen
'Paqueterias guias
If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
Dim CveEstatus As Integer = 1 ' DdlEstatus.SelectedValue.ToEntero()
- Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
+ Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
@@ -3123,7 +3123,7 @@ Partial Class Inventarios_EntregaAlmacen
'Paqueterias Guias
If RbEntregaInterna.Checked AndAlso Not ErrorMovInv Then
Dim CveEstatus As Integer = 0 ' DdlEstatus.SelectedValue.ToEntero()
- Dim Fecha As String = "-1" 'TxtFechaPaqInterna.Text
+ Dim Fecha As String = Now.ToString 'TxtFechaPaqInterna.Text
Dim FechaEstimada As String = "-1" 'If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text)
Dim NoCajas As Integer = 0 'TxtNoCajas.Text.ToEntero()
Dim Observaciones As String = "" 'TxtObservacionesPaqInterna.Text
diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index b93c5b5f8..9cf5cae5f 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -2459,9 +2459,9 @@ Partial Class Inventarios_RecepcionAlmacen
Dim TotalPorDevengar = 0.0
TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDouble, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDouble, 4))
TotalPorDevengar = Math.Round(TotalPorDevengar, 4)
- If ObjContaContPAQ Is Nothing Then
- ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa)
- ObjContaContPAQ.IniciaTransacSQL()
+ If ObjContaAC Is Nothing Then
+ ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+ ObjContaAC.IniciaTransacSQL()
End If
IDPoliza = ObjContaAC.AddPoliza(4, "Devengado", TotalPorDevengar * 2, TotalPorDevengar * 2, UsuarioActual.CveUsuario, FechaMovto)
diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb
index 118f8aa6a..f4d2d40c4 100644
--- a/OC/PopUpBuscarReq.aspx.vb
+++ b/OC/PopUpBuscarReq.aspx.vb
@@ -126,12 +126,15 @@ Partial Class OC_PopUpBuscarReq
ViewState("CveProveedor") = Request("P")
UPFiltros.Visible = False
- Dim ObjPro As New ClsCompProveedores
- ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
- If ObjPro.DtResultados.Rows.Count > 0 Then
- LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
- End If
- ObjPro.Dispose()
+ Dim NombreProv As String = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, ViewState("CveProveedor").ToString.ToEntero).FiltroPrimeroValor("RazonSocial")
+ LbTitulo.Text = String.Format("Órdenes de Compra - {0}", NombreProv)
+
+ 'Dim ObjPro As New ClsCompProveedores
+ 'ObjPro.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, ViewState("CveProveedor").ToString.ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa)
+ 'If ObjPro.DtResultados.Rows.Count > 0 Then
+ ' LbTitulo.Text = String.Format("Órdenes de Compra - {0}", ObjPro.DtResultados.Rows(0)("RazonSocial").ToString)
+ 'End If
+ 'ObjPro.Dispose()
'Cargar Datos
Dim ObjOC As New ClsOC
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index a6d91ab98..d9da7cfae 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -937,27 +937,12 @@ Partial Class Clientes
Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
DdlEstadoSAT.Items.Clear()
-
- Dim ObjCliente As New ClsClientes
-
-
-
- If ObjCliente.GetEstados(ClaveSATPais) Then
- DdlEstadoSAT.DataSource = ObjCliente.DtResultados.Copy
- End If
-
-
-
-
- ObjCliente.Dispose()
+ DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
DdlEstadoSAT.DataBind()
- DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
- 'DdlEstadoSAT.SelectedValue = "-1"
-
+ DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
UpDatos.Update()
-
End Sub
Private Sub CargaResponsables()
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index cc9f9197d..22c97dceb 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -2581,9 +2581,9 @@ Partial Class Ventas_ClientesAbonar
Dim CveCuenta As Integer = 0
Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal
Dim Saldo As Decimal = gr.DataKey("Saldo").ToDecimal
- Dim SubTotal As Decimal = PorcentajePago * gr.DataKey("SubTotal").ToDecimal
- Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal
- Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal
+ Dim SubTotal As Decimal = PorcentajePago * gr.DataKey("SubTotal").ToDecimal.RoundSQL
+ Dim IVA As Decimal = PorcentajePago * gr.DataKey("IVA").ToDecimal.RoundSQL
+ Dim IEPS As Decimal = PorcentajePago * gr.DataKey("IEPS").ToDecimal.RoundSQL
Dim TCVenta As Decimal = gr.DataKey("TipoCambio").ToDecimal
Dim FechaVenta As Date = gr.DataKey("Fecha").ToDate
Dim tCveMoneda As Integer = gr.DataKey("CveMoneda").ToEntero
diff --git a/Ventas/RepAuxiliarFacturas.aspx b/Ventas/RepAuxiliarFacturas.aspx
new file mode 100644
index 000000000..4146eba0b
--- /dev/null
+++ b/Ventas/RepAuxiliarFacturas.aspx
@@ -0,0 +1,202 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepAuxiliarFacturas.aspx.vb" Inherits="Ventas_RepAuxiliarFacturas" %>
+
+
+
+
+
+
+ Reporte auxiliar de facturas de venta.
+
+
+
+ PDF
+
+
+ Excel
+
+
+ Ver Dlls en pesos
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Ventas/RepAuxiliarFacturas.aspx.vb b/Ventas/RepAuxiliarFacturas.aspx.vb
new file mode 100644
index 000000000..82890d330
--- /dev/null
+++ b/Ventas/RepAuxiliarFacturas.aspx.vb
@@ -0,0 +1,304 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+Imports System.Data
+
+
+Partial Class Ventas_RepAuxiliarFacturas
+ Inherits ClsPaginas
+#Region "P R O P I E D A D E S"
+
+ Private Property DtVentas As DataTable
+ Get
+ Return DirectCast(ViewState("DtVentas"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtVentas") = value
+ End Set
+ End Property
+
+ Private Property DtColor As DataTable
+ Get
+ Return DirectCast(ViewState("DtColor"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("DtColor") = value
+ End Set
+ End Property
+ Private Property Agrupador As String
+ Get
+ Return ViewState("Agrupador").ToString
+ End Get
+
+ Set(value As String)
+ ViewState("Agrupador") = value
+ End Set
+ End Property
+ Private Property TCEspecifico As Double
+ Get
+ Return ViewState("TCEspecifico").ToString.ToDouble
+ End Get
+
+ Set(value As Double)
+ ViewState("TCEspecifico") = value
+ End Set
+ End Property
+ Private Property TipoCambio As Integer
+ Get
+ Return ViewState("TipoCambio").ToString.ToEntero
+ End Get
+
+ Set(value As Integer)
+ ViewState("TipoCambio") = value
+ End Set
+ End Property
+
+#End Region
+
+ Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+ If Not IsPostBack Then
+ CargaCombos()
+ End If
+ End Sub
+
+#Region "C A R G A - C O M B O S"
+ Private Sub CargaClientes()
+ DdlClientes.ddl.Items.Clear()
+ DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+ DdlClientes.DataBind()
+ DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+ End Sub
+
+ Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
+ DdlEstatus.Items.Clear()
+ If DdlTipoComprobante.SelectedValue <> "-1" Then
+ DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(String.Format("TipoDocto = '{0}'", DdlTipoComprobante.SelectedValue))
+ Else
+ DdlEstatus.DataSource = GlobalDTEstatusFactura
+
+ End If
+ DdlEstatus.Items.Add(New ListItem("Todos", "-1"))
+ DdlEstatus.DataBind()
+ DdlEstatus.SelectedValueExist("3")
+ End Sub
+
+ Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+ DdlSubProyecto.Items.Clear()
+ If DdlProyecto.SelectedValue <> "-1" Then
+ DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
+ DdlSubProyecto.DataBind()
+ End If
+ DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+ End Sub
+
+ Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+ If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
+ DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+ DdlPS.DataBind()
+ DdlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+ Else
+ DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+ DdlPS.SelectedText = "Todos"
+ DdlPS.SelectedValue = "-1"
+ End If
+ End Sub
+
+ Private Sub CargaTipoCentroCosto()
+
+ If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+ DdlSubProyecto.Items.Clear()
+ DivProyecto.Visible = False
+ LblProyecto.Visible = False
+ LblSubProyecto.InnerText = "Sucursal:"
+ DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+ DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+ DdlSubProyecto.DataBind()
+
+ ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+ DdlSubProyecto.Items.Clear()
+ DivProyecto.Visible = False
+ LblProyecto.Visible = False
+ LblSubProyecto.InnerText = "Proyecto:"
+ DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+ DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+ DdlSubProyecto.DataBind()
+
+ ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+ LblProyecto.InnerText = "Sucursal:"
+ LblSubProyecto.InnerText = "Proyecto:"
+
+ ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+ LblProyecto.InnerText = "Proyecto:"
+ LblSubProyecto.InnerText = "Sucursal:"
+
+ End If
+ End Sub
+
+ Private Sub CargaCombos()
+ 'Cargo Clientes
+ CargaClientes()
+
+ 'Cargo Proyectos
+ DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
+ DdlProyecto.DataBind()
+
+ 'Cargo Clasificaciones
+ DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+ DdlClasificacion.DataBind()
+
+
+ 'CargaSubProyectos
+ DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+ DdlSubProyecto.DataBind()
+
+ 'Vendedor
+ DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+ DdlVendedor.DataBind()
+
+
+ 'Carga Productos
+ DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+ If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+ DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+ DdlPS.SelectedText = ""
+ DdlPS.SelectedValue = "-1"
+ Else
+ DdlPS.ddl.Items.Clear()
+ DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
+ DdlPS.ddl.DataBind()
+ DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+ End If
+
+ 'CargaEstatus
+ DdlEstatus.DataSource = GlobalDTEstatusFactura.FiltraParametros(" CveEstatusFactura NOT IN (1, 4, 5) ")
+ DdlEstatus.DataBind()
+ DdlEstatus.Items.Add(New ListItem("Canceladas", "4"))
+ If UsuarioActual.Empresa.TipoFacturacion = "CFDi" Then
+ DdlEstatus.SelectedIndex = 2
+ Else
+ DdlEstatus.SelectedIndex = 1
+ End If
+
+ CargaTipoCentroCosto()
+
+ TipoCambio = 1
+ TCEspecifico = 0
+
+ Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+ If EsWS Then
+ DdlClientes.setEsWebService(True)
+ Else
+ DdlClientes.setEsWebService(False)
+ DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+ DdlClientes.DataBind()
+ DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+ End If
+
+
+ End Sub
+
+#End Region
+
+#Region "C A R G A - D A T O S"
+ Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+ CargaDatos()
+ UPDatos.Update()
+ End Sub
+
+ Private Sub CargaDatos()
+
+ Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
+ Dim FechaI, FechaF As Date
+ FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
+ FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
+
+ If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
+
+ Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+
+ Dim ObjVentas As New ClsVentas()
+ If ObjVentas.GetRepAuxliarFacturas(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
+ FechaI, FechaF, CveCliente, DdlVendedor.SelectedValue.ToEntero, -1, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
+ CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico) Then
+ DtVentas = ObjVentas.DtResultados.Copy()
+ End If
+ ObjVentas.Dispose()
+
+ GvDatos.DataSource = DtVentas
+ GvDatos.DataBind()
+ End Sub
+
+ Protected Sub BtnTipoCambio_Click1(sender As Object, e As EventArgs)
+ CargaDatos()
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
+ UPDatos.Update()
+ End Sub
+
+ Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ Select Case e.Row.DBCampo("TipoFila")
+ Case "1"
+ e.Row.CssClass = "Totales"
+ Case "2"
+ e.Row.CssClass = "SubTotales"
+ e.Row.FCLiteral("LtlGrupo").Text = String.Format("{2}", "SubTotales", String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta")), e.Row.DBCampo("Gpo"))
+ End Select
+
+ End If
+ End Sub
+
+#End Region
+
+ Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+ GvDatos.ExportToExcel("RepAuxiliarFacturas" & Now.ToShortDateString)
+ End Sub
+
+ Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
+ If GvDatos.Rows.Count > 0 Then
+ GenerarPDF()
+ Else
+ Alert("No hay datos para imprimir")
+ End If
+ End Sub
+
+ Private Sub GenerarPDF()
+ Dim FechaI, FechaF As Date
+ FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
+ FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
+
+ Dim Cliente = If(DdlClientes.SelectedText = "", "", $" Cliente: {DdlClientes.SelectedText}")
+ Dim FechaInicio = If(txtFechaI.Text = "", "", $" Fecha Inicio: {txtFechaI.Text}")
+ Dim FechaFin = If(txtFechaF.Text = "", "", $" Fecha Fin: {txtFechaF.Text}")
+ Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $" Clasificación: {DdlClasificacion.SelectedItem.Text}")
+ Dim PS = If(DdlPS.SelectedValue = "-1", "", $" P.S.: {DdlPS.SelectedText}")
+ Dim Proyecto = If(DdlSubProyecto.SelectedValue = "-1", "", $" Proyecto: {DdlSubProyecto.SelectedItem.Text}")
+ Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $" Estatus: {DdlEstatus.SelectedItem.Text}")
+
+
+ If DtVentas IsNot Nothing AndAlso DtVentas.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("FechaInicio", If(txtFechaI.Text <> "", FechaI.ToShortDateString, "")))
+ params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text <> "", FechaF.ToShortDateString, "")))
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("Filtros", $"{Cliente}{FechaInicio}{FechaFin}{Clasificacion}{PS}{Proyecto}{Estatus}"))
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ ImprimirPDF("Empresas/Grales/Formatos/RepAuxiliarFacturas.rdlc", DtVentas, params, "ReporteAuxiliarFacturas")
+ Else
+ Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia)
+ End If
+
+ End Sub
+
+End Class
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index cb0957bcf..f4435a3a5 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1297,6 +1297,14 @@
+
+
+
+
+
+
+
+
+
+
+
@@ -3293,20 +3301,7 @@
-
-
- Ordenes de Compra Relacionadas:
-
-
-
-
-
-
-
-
-
+
Tipo de Entrega:
@@ -3691,7 +3686,7 @@
-
+
@@ -6399,15 +6394,24 @@
+
@@ -7667,8 +7671,8 @@
$('#<%= TxtTelefonoCliente.ClientID %>').val('');
$('#<%= TxtCiudadCliente.ClientID %>').val('');
$('#<%= TxtLocalidadCliente.ClientID %>').val('');
- $('#<%= TxtEstadoCliente.ClientID %>').val('');
- $('#<%= TxtPaisCliente.ClientID %>').val('');
+ $('#<%= DdlSATPais.ClientID %>').val('');
+ $('#<%= DdlEstadoSAT.ClientID %>').val('');
$('#<%= TxtCorreoCliente.ClientID %>').val('');
$('#divAgregarCliente').modal();
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 65b1df597..1583f4af3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2049,7 +2049,7 @@ Partial Class Ventas
DdlSubProyectoDatos.Enabled = False
BtnEmitirImprimir.Visible = False
BtnCrearApartirDe.Visible = True
- BtnEditar.Visible = True
+ If UsuarioActual.TienePermisoProceso(302) Then BtnEditar.Visible = True
'DdlEstatus.Enabled = True
DivFechaAnticipoCliente.Visible = True
@@ -2107,8 +2107,7 @@ Partial Class Ventas
DivDevAlm.Visible = True
End If
- 'CARGA GV DE OC RELACIONADAS
- CargarOCRelacionadas()
+
End If
Else
If Request("CveOS") IsNot Nothing AndAlso IsNumeric(Request("CveOS")) AndAlso Request("CveOS").ToEntero() > 0 Then
@@ -3564,6 +3563,19 @@ Partial Class Ventas
End If
End Sub
+ Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
+
+ DdlEstadoSAT.Items.Clear()
+ DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+
+ DdlEstadoSAT.DataBind()
+ DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+ End Sub
+ Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
+ CargaEstados(DdlSATPais.SelectedValue)
+ End Sub
+
Private Function CargaVenta() As Boolean
Dim Retorno As Boolean = False
@@ -4477,12 +4489,22 @@ Partial Class Ventas
DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
- CargaPS(-1, DdlPS)
+ CargaPS(-1, DdlPS)
- UpPS.Update()
- UpContado.Update()
- UpEstatus.Update()
- Retorno = True
+ 'CARGA GV DE OC RELACIONADAS
+ If CveVenta > 0 AndAlso ObjVentas.GetOCRelacionadas(CveVenta) Then
+ If ObjVentas.DtResultados.Rows.Count > 0 Then
+ DivOCRelacionadas.Visible = True
+ GvOCRelacionadas.DataSource = ObjVentas.DtResultados
+
+ End If
+ End If
+ GvOCRelacionadas.DataBind()
+
+ UpPS.Update()
+ UpContado.Update()
+ UpEstatus.Update()
+ Retorno = True
Else
ViewState("CveVenta") = -1
@@ -18456,6 +18478,7 @@ Partial Class Ventas
DivBotonesAgregarCliente.Visible = False
DivFormaCliente.Visible = False
UpAgregarCliente.Update()
+ CargaEstados()
RegistraScript("showDivEC();")
End Sub
@@ -18478,8 +18501,8 @@ Partial Class Ventas
RFVColoniaC.Visible = False
RFVCiudadC.Visible = False
RFVLocalidadC.Visible = False
- RFVEstadoC.Visible = False
- RFVPaisC.Visible = False
+ RfvDdlEstadoSAT.Visible = False
+ RFVSATPais.Visible = False
DdlMetodoCliente.SelectedValueExist(1)
DdlFormaCliente.SelectedValueExist(1)
@@ -18511,8 +18534,8 @@ Partial Class Ventas
RFVColoniaC.Visible = True
RFVCiudadC.Visible = True
RFVLocalidadC.Visible = True
- RFVEstadoC.Visible = True
- RFVPaisC.Visible = True
+ RfvDdlEstadoSAT.Visible = True
+ RFVSATPais.Visible = True
DdlMetodoCliente.SelectedValueExist(-1)
DdlFormaCliente.SelectedValueExist(-1)
@@ -18535,8 +18558,8 @@ Partial Class Ventas
Dim ObjCliente As New ClsClientes
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim,
- TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim,
- TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
+ TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero,
+ TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim,
DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", -1, -1, CvePrecioLista:=CvePrecioLista) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
RegistraScript("hideDivEC();")
@@ -21273,6 +21296,11 @@ Partial Class Ventas
Dim TempCliente As Integer = If(CveVenta <= 0, CveCliente, -1)
Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1)
+ If CveVenta <= 0 AndAlso TempCliente <= 0 Then
+ Dim a As String = "carga de docuemntacion del cleinte, masivo, corregir"
+ a.GuardaLog()
+ End If
+
If objRH.DocumentacionElectronicaGet(-1, TempCliente, -1, UsuarioActual.CveEmpresa, TipoDocumento, CveVenta) Then
DtDocumentacionCliente = objRH.DtResultados.FiltraParametros("CveDocumentacionElectronica > 0")
DtDocumentacionCliente.Columns.Add("Accion", Type.GetType("System.String"))
@@ -25952,26 +25980,6 @@ Partial Class Ventas
'MailCls = Nothing
End Sub
- Private Sub CargarOCRelacionadas()
- Dim GridViewPSAux As GridView = GvPS
- Dim CveVentasDetalle As New StringBuilder()
- For Each vd As GridViewRow In GridViewPSAux.Rows
- Dim CveVentaDetalle As String = vd.DataKey("CveVentaDetalle")
- CveVentasDetalle.AppendFormat("{0},", CveVentaDetalle)
- Next
- Dim ObjVentas As New ClsVentas()
- If ObjVentas.GetOCRelacionadas(CveVentasDetalle.ToString) Then
- Dim OC As DataTable = ObjVentas.DtResultados
- If OC.Rows.Count > 0 Then
- trOCRelacionadasLabel.Visible = True
- trOCRelacionadas.Visible = True
- GvOCRelacionadas.DataSource = OC
- GvOCRelacionadas.DataBind()
- End If
- End If
- ObjVentas.Dispose()
- End Sub
-
Protected Sub BtnEditar_Click() Handles BtnEditar.Click
Dim Opcion As String = BtnEditar.Text
If Opcion = "Editar" Then
diff --git a/vwd.webinfo b/vwd.webinfo
index a2d171c0b..8404920ba 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -72,6 +72,8 @@
+
+