From 9d7302846ea67a28b99016b6006b5991b67ae981 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 7 Jun 2024 22:16:53 -0700 Subject: [PATCH 01/10] Ayven - Formato OC, tomando como base el de E72 --- App_Code/ClsMovimientos.vb | 1 + App_Code/ClsOC.vb | 8 +- App_Code/ClsPaginas.vb | 65 ++++- Bancos/PopIEVentas.aspx | 17 +- Bancos/PopIEVentas.aspx.vb | 2 +- Compras/Proveedores.aspx | 10 +- Compras/Proveedores.aspx.vb | 46 +++- Compras/RepCxPDetalle.aspx | 19 +- General/SaldosMenores.aspx | 82 +++--- General/SaldosMenores.aspx.vb | 363 ++++++++++---------------- OC/OC.aspx | 6 +- OC/OC.aspx.vb | 57 +++- Ventas/ClientesAbonar.aspx | 2 +- Ventas/ClientesAbonar.aspx.vb | 2 +- Ventas/RepRecuperacionDetalle.aspx | 134 +++++++++- Ventas/RepRecuperacionDetalle.aspx.vb | 353 ++++++++++++++++++++++++- 16 files changed, 852 insertions(+), 315 deletions(-) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 4fe89fa64..dced0eeca 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1539,6 +1539,7 @@ Public Class ClsMovimientos Optional CveCondicionesPago As Integer = -1, Optional CveTipoTransaccion As Integer = -1, Optional CveMoneda As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_RepRecuperacion") + SqlAdapter.SelectCommand.CommandTimeout = 0 With SqlAdapter.SelectCommand.Parameters .Add("@CveResponsable", SqlDbType.Int).Value = CveResponsable .Add("@FechaI", SqlDbType.Date).Value = FechaI diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index 2be37d84d..aca7aa3b2 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -708,7 +708,7 @@ Public Class ClsOC Optional PorcentajeIVA As Decimal = 0.16D, Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional FechaExpiracion As Date = Nothing, Optional CveCotizacion As Integer = -1, Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional CveIEAnticipo As Integer = -1, Optional ImporteAnticipo As Decimal = 0, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", Optional CveProveedorContacto As Integer = -1, Optional NumRemision As String = "-1", - Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1) As Boolean + Optional CveColectiva As Integer = -1, Optional MetodoPago As Integer = -1, Optional CveSubProyectoEntrega As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraAdd") @@ -754,6 +754,7 @@ Public Class ClsOC .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago ' 0 Contado, 1 Credito + .Add("@CveSubProyectoEntrega", SqlDbType.Int).Value = CveSubProyectoEntrega ' 0 Contado, 1 Credito .Add("@vCveOrdenCompra", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@vFolio", SqlDbType.Int).Direction = ParameterDirection.Output @@ -917,7 +918,8 @@ Public Class ClsOC pCveProveedor As Integer, pCveOrdenCompra As Integer, pCveUsuarioModifico As Integer, Optional CveCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PrioridadObservacion As String = "", Optional IVA As Decimal = 0, Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IDPoliza As Integer = -1, Optional FechaExpiracion As Date = Nothing, Optional FolioAdicional As String = "", Optional EntregaDirecta As Integer = -1, Optional CveDireccionEnvio As Integer = -1, Optional Guia As String = "-1", Optional IEPS As Decimal = -1, Optional UsoCFDI As Integer = -1, Optional Promocion As String = "-1", - Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16D, Optional NumRemision As String = "-1", Optional MetodoPago As Integer = -1) As Boolean + Optional pCveProveedorSucursal As Integer = -1, Optional CveProveedorContacto As Integer = -1, Optional PorcentajeIVA As Decimal = 0.16D, Optional NumRemision As String = "-1", Optional MetodoPago As Integer = -1, + Optional CveSubProyectoEntrega As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OC_OrdenesCompraUpdate") @@ -953,6 +955,8 @@ Public Class ClsOC .Add("@PorcentajeIVA", SqlDbType.SmallMoney).Value = PorcentajeIVA .Add("@NumRemision", SqlDbType.VarChar).Value = NumRemision .Add("@MetodoPago", SqlDbType.Int).Value = MetodoPago ' 0 Contado, 1 Credito + .Add("@CveSubProyectoEntrega", SqlDbType.Int).Value = CveSubProyectoEntrega + End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index bf49e1ed5..3e4864e59 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7632,8 +7632,67 @@ Public Class ClsPaginas DtDetalle = ObjOC.DtResultados End If - 'Obtenemos la sucursal de la OC PARA COMPU PROVEEDORES Dim DomicilioSucursal As String = "" + + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197 Then + + Dim SBDomicilioSucursal As New StringBuilder() + Dim CiudadSucursal As String = "" + Dim ObjClientes As New ClsClientes + + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) + + If ObjOC.GetSucursalOC(ObjOC.CveOrdenCompra) AndAlso ObjOC.DtResultados.Rows.Count > 0 Then + + params.Add(New ReportParameter("Proyecto", ObjOC.SucSubProyecto.ToString)) + params.Add(New ReportParameter("Telefono", ObjOC.SucTelefono.ToString)) + + CiudadSucursal = String.Format("{0},{1}", ObjOC.SucMunicipio, ObjOC.SucEstado) + + SBDomicilioSucursal.AppendFormat("{0}", ObjOC.SucCalle) + If ObjOC.SucNoExt.Length > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", ObjOC.SucNoExt) + If ObjOC.SucNoInt.Length > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", ObjOC.SucNoInt) + If ObjOC.SucColonia.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", ObjOC.SucColonia) + If ObjOC.SucCP.Length > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", ObjOC.SucCP) + If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal) + If ObjOC.SucPais.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", ObjOC.SucPais) + + DomicilioSucursal = SBDomicilioSucursal.ToString + + + Dim DirecconSubProyectoEntrega As String = "" + Dim CveSubProyectoEntrega As Integer = dtOC(0)("CveSubProyectoEntrega").ToString.ToEntero + + If CveSubProyectoEntrega > 0 Then + + Dim DTSubProyectoEntrega As DataTable = GlobalDTSubProyectos(-1, CveSubProyectoEntrega) + + params.Add(New ReportParameter("SubProyectoEntrega", DTSubProyectoEntrega(0)("SubProyecto").ToString)) + + Dim SubProyectoEntregaDir As String = $"Calle {DTSubProyectoEntrega(0)("Calle").ToString}" + SubProyectoEntregaDir = $"{SubProyectoEntregaDir} No. {DTSubProyectoEntrega(0)("NoExt").ToString()}" + + If DTSubProyectoEntrega(0)("NoInt").ToString().Trim.Length > 0 Then + SubProyectoEntregaDir = $"{SubProyectoEntregaDir} No. int.{DTSubProyectoEntrega(0)("NoInt").ToString()}" + End If + + SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{vbCrLf}" + + SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{DTSubProyectoEntrega(0)("Colonia").ToString()} C.P. {DTSubProyectoEntrega(0)("CP").ToString()}{vbCrLf}" + SubProyectoEntregaDir = $"{SubProyectoEntregaDir}{DTSubProyectoEntrega(0)("Municipio").ToString()},{DTSubProyectoEntrega(0)("Estado").ToString()}{vbCrLf}Tel. { DTSubProyectoEntrega(0)("Telefono").ToString()}" + + params.Add(New ReportParameter("SubProyectoEntregaDir", SubProyectoEntregaDir)) + + End If + + End If + End If + + + + Dim CveUsuarioSol As Integer = dtOC(0)("CveUsuarioSolicito").ToString.ToEntero Dim CveUsuarioAut As Integer = dtOC(0)("CveUsuarioAutorizo").ToString.ToEntero Dim drSol As DataRow = GlobalDTUsuarios(CveUsuarioSol, EmpresaActual.CveEmpresa).FiltroPrimero("") 'DataRow (incluye el NOMBRE de quien SOLICITÓ la OC) @@ -7710,7 +7769,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("TipoOC", If(ObjOC.Tipo = "OC", "Orden de Compra", "Requisición"))) params.Add(New ReportParameter("UsoCFDI", ObjOC.UsoCFDI)) - If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 172) Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.CveEmpresa = 197) Then params.Add(New ReportParameter("FolioAdicional", dtOC(0)("FolioAdicional").ToString)) params.Add(New ReportParameter("Vendedor", dtOC(0)("Vendedor").ToString)) params.Add(New ReportParameter("Observacion", dtOC(0)("PrioridadObservacion").ToString)) @@ -7723,6 +7782,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("ProveedorContacto", ObjOC.ProveedorContacto)) params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado)) End If + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'Dim ObjCuentasBancos As New ClsGenerales() 'If ObjCuentasBancos.GetCuentasDepositos(CveProveedor:=ObjOC.CveProveedor) Then @@ -7737,6 +7797,7 @@ Public Class ClsPaginas 'End If 'ObjCuentasBancos.Dispose() End If + 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString)) Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol) Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol)) diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index 7326ad20b..4f1afc7d8 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -7,10 +7,21 @@ .row { margin: 0 -10px; } - .calendar-extender-popup { + /*.calendar-extender-popup { position: absolute; - z-index: 10000; /* Asegura que se muestre sobre otros elementos */ + z-index: 10000;*/ /* Asegura que se muestre sobre otros elementos */ + /*}*/ + + #C_CETxtFechaEmision_popupDiv{ + z-index: 10000; /* Asegura que el calendario se muestre sobre otros elementos */ + margin-top:-160px!important; + position: absolute; /* Asegura que el calendario no desplace otros elementos */ } + #C_Calendario_popupDiv{ + z-index: 10000; /* Asegura que el calendario se muestre sobre otros elementos */ + margin-left:-50px!important; + position: absolute; /* Asegura que el calendario no desplace otros elementos */ + } @@ -559,7 +570,7 @@ - + diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index f8f7db127..9b3840b07 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1112,7 +1112,7 @@ Partial Class Bancos_PopIEVentas Dim FechaEmision As Date = MinFecha - If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If ChkComplementoPago.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then FechaEmision = TxtFechaEmision.Text.ToDate If FechaEmision <= MinFecha Then diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 60c46cc56..f1f241e4d 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -2053,7 +2053,7 @@ + DataKeyNames="CveDocumentacion,Documentacion,Orden,CveDocumentacionElectronica,Adjunto,Estatus,Observacion,Fecha,FechaIng,Usuario,FechaLimite,FechaVigencia,DiasLimite,AplicaDiasLimite,AplicaFechaVencimiento"> @@ -2093,11 +2093,17 @@ CssClass="btn btn-circle btn-sm green" Text="" /> - + + + + + + 0 Then - ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica & "." & extencion) - Else - ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica) - End If + 'ImgDownLoad.Visible = True + + LnkDownLoadDoc.Visible = True + ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc) + + 'If extencion.Length > 0 Then + ' ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica & "." & extencion) + 'Else + ' ImgDownLoad.Text = String.Format(" ", linkDescarga, CveDocumentacionElectronica) + 'End If + + Else - ImgDownLoad.Visible = False + 'ImgDownLoad.Visible = False End If Else - ImgDownLoad.Visible = False + 'ImgDownLoad.Visible = False End If If requerido Then @@ -5835,6 +5843,28 @@ Partial Class Compras_Proveedores End Sub #End Region + + Protected Sub LnkDownLoadDoc_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim Adjunto As String = GvRow.DataKey("Adjunto") + + + Dim stringDescargaDocumento As String = UsuarioActual.Empresa.Ruta & String.Format("Edoc\\Proveedor\{0}\{1}", CveProveedor, Adjunto) + + + Dim File As New FileInfo(stringDescargaDocumento) + + If File.Exists Then + Response.Clear() + Response.AddHeader("Content-Disposition", "attachment; filename=" + File.Name) + Response.AddHeader("Content-Length", File.Length.ToString()) + Response.ContentType = "text/octet-stream" + Response.Flush() + Response.TransmitFile(File.FullName) + Response.End() + End If + + End Sub End Class diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index a7d940773..2a8531839 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -552,22 +552,15 @@ - - - - - - + + + - - - - - - - + + + diff --git a/General/SaldosMenores.aspx b/General/SaldosMenores.aspx index c3a4abe04..29cf6026e 100644 --- a/General/SaldosMenores.aspx +++ b/General/SaldosMenores.aspx @@ -157,48 +157,42 @@ - - -
-
Fecha:
-
-
- - - - - - - - -
-
-
Centro Costo:
-
- - -
-
Concepto:
-
- - - -
- -
- -
- +
+
Fecha:
+
+
+ + + + + + + +
- - - - - +
+ +
Centro Costo:
+
+ + +
+ +
Concepto:
+
+ + + +
+ +
+ +
+ +
- @@ -206,7 +200,7 @@ - +
@@ -271,7 +265,8 @@
- + + <%-- @@ -279,13 +274,14 @@
Especifico: -
+
--%> +
- - + <%-- + --%>
diff --git a/General/SaldosMenores.aspx.vb b/General/SaldosMenores.aspx.vb index e7e0e5987..a28a3f8d2 100644 --- a/General/SaldosMenores.aspx.vb +++ b/General/SaldosMenores.aspx.vb @@ -9,7 +9,7 @@ Partial Public Class General_SaldosMenores Inherits ClsPaginas #Region "PROPIEDADES" - Private Property DtDatos As DataTable + Private Property DtDatosIXC As DataTable Get Return DirectCast(ViewState("DtDatos"), DataTable) End Get @@ -61,6 +61,114 @@ Partial Public Class General_SaldosMenores End If End Sub + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + + DvSaldar.Visible = False + + If Tabs.ActiveTab Is TabIXC Then + CargaDatosIXC() + If DtDatosIXC.Rows.Count > 0 Then + DvSaldar.Visible = True + End If + End If + + Upsaldar.Update() + + End Sub + + Protected Sub BtnSaldar_Click(sender As Object, e As EventArgs) + + + If Tabs.ActiveTab Is TabIXC Then + Dim ObjConta As New ClsContabilidad() + ObjConta.IniciaTransacSQL() + Dim CvePrePoliza As Integer = 0, CveVenta As Integer = -1, CveIE As Integer = -1 + Dim Saldo As Decimal = 0 + Dim SaldoAdmin As Decimal = 0 + Dim ImporteTotalGasto As Decimal = 0 + Dim MsgError As String = "" + + CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, 0, 0, 1, TxtFecha.Text.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) + Dim tMovto As Boolean = True + Dim tConceptoSaldar As Integer = 78 + + If CvePrePoliza > 0 Then + For Each Gv As GridViewRow In GvDatosIXC.Rows + Dim ConPreP As New ConceptosTipoSaldo() + + If Gv.FCCheckBox("Chk").Checked Then + + If Gv.DataKey("CveVenta").ToEntero > 0 Then + ConPreP = ClsPaginas.ObtenerCveConceptoPrePoliza(6, Gv.DataKey("CveMoneda").ToEntero(), False, 2) + ElseIf Gv.DataKey("CveIE").ToEntero > 0 Then + ConPreP.CveConcepto = 3 + End If + + 'If Tipo = 1 OrElse Tipo = 2 Then + If Gv.DataKey("CveVenta").ToEntero() > 0 Then + CveVenta = Gv.DataKey("CveVenta").ToEntero() + Saldo = -Gv.DataKey("Saldo").ToDecimal() + SaldoAdmin = Saldo + + ElseIf Gv.DataKey("CveIE").ToEntero() > 0 Then + 'ElseIf Tipo = 3 Then + ConPreP = ClsPaginas.ObtenerCveConceptoPrePoliza(18, Gv.DataKey("CveMoneda").ToEntero(), True, 2) + CveIE = Gv.DataKey("CveIE").ToEntero() + Saldo = Gv.DataKey("Saldo").ToDecimal() + SaldoAdmin = Saldo + End If + + Saldo = -Saldo ' invertimos el saldo para que se haga negativo para que sea Abono + + ImporteTotalGasto += Saldo + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, SaldoAdmin, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE, CveVenta, CveCliente:=Gv.DataKey("CveCliente").ToEntero()) Then + MsgError = "Ocurrio un error al saldar el movimiento" + Exit For + End If + + If Gv.DataKey("CveMoneda").ToEntero() > 1 Then + Dim ImporteMN As Decimal = (Saldo * Gv.DataKey("TipoCambio").ToDecimal() - Saldo).RoundSQL() + ImporteTotalGasto += ImporteMN + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, Saldo, ImporteMN, ConPreP.CveConceptoComplementario, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE, CveVenta, CveCliente:=Gv.DataKey("CveCliente").ToEntero(), ImporteME:=Saldo, TipoCambio:=Gv.DataKey("TipoCambio").ToDecimal()) Then + MsgError = "Ocurrio un error al saldar el movimiento" + Exit For + End If + End If + End If + Next + + If ImporteTotalGasto <> 0 Then + ImporteTotalGasto *= -1 ' se invierte el valor, para cuadre de prepoliza + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, ImporteTotalGasto, ImporteTotalGasto, tConceptoSaldar, "", TxtConcepto.Text, CveIE, CveVenta, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero()) Then + MsgError = "Ocurrio un error al saldar el movimiento" + End If + Else + MsgError = "Poliza no insertada" + End If + End If + + If MsgError = "" Then + ObjConta.Commit() + Dim Msg As String = "Los movimientos se saldaron correctamente." + Msg &= $"

Ver Póliza   " + Alert(Msg) + Else + ObjConta.RollBack() + Alert(MsgError, ModExtensiones.TipoMensaje.MsgError) + End If + + CargaDatosIXC() + ObjConta.Dispose() + End If + + + TxtFecha.Text = DateTime.Today.ToString() + Upsaldar.Update() + End Sub + #Region "I X C" @@ -82,55 +190,45 @@ Partial Public Class General_SaldosMenores txtFechaF.Text = If(Request("FechaF") Is Nothing, NowADS().ToString(), Request("FechaF").ToString()) TipoCambio = If(Request("TipoCambio") Is Nothing, 1, Request("TipoCambio").ToString().ToEntero()) TCEspecifico = If(Request("TCEspecifico") Is Nothing, -1, Request("TCEspecifico").ToString().ToDouble()) - RblTipoCambio.SelectedValue = TipoCambio.ToString() - LiEspecifico.InnerText = TCEspecifico.FormatoNumero() + 'RblTipoCambio.SelectedValue = TipoCambio.ToString() + 'LiEspecifico.InnerText = TCEspecifico.FormatoNumero() Dim FechaICorte As DateTime FechaICorte = If(Request("FechaICorte") Is Nothing, DateTime.MinValue, Request("FechaICorte").ToString().ToDate()) - CargaDatos() + + Tipo = -1 + + End Sub Protected Sub CargaSucursales() - 'DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) - 'DdlSucursal.DataBind() - 'DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1")) - 'DdlSucursal.SelectedValue = "-1" + DdlSubProyectoSaldar.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) DdlSubProyectoSaldar.DataBind() End Sub - 'Protected Sub CargaVendedores() - ' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) - ' DdlVendedor.DataBind() - ' DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) - 'End Sub - Protected Sub CargaDatos() - If TipoCambio = 3 AndAlso TxtEspecifico.Text <> "" Then - TCEspecifico = TxtEspecifico.Text.ToDouble() - Else - TCEspecifico = -1 - End If - If TipoCambio <> 1 Then - CveMoneda = -1 - End If + Protected Sub CargaDatosIXC() + + + + + 'If TipoCambio = 3 AndAlso TxtEspecifico.Text <> "" Then + ' TCEspecifico = TxtEspecifico.Text.ToDouble() + 'Else + ' TCEspecifico = -1 + 'End If + + 'If TipoCambio <> 1 Then + ' CveMoneda = -1 + 'End If Dim FechaICorte As DateTime = MinFecha - 'If TxtFechaICorte.Text <> "" Then - ' FechaICorte = TxtFechaICorte.Text.ToDate() - 'Else - ' FechaICorte = DateTime.MinValue - 'End If - Dim FechaFCorte As DateTime = MaxFecha - 'If TxtFechaFCorte.Text <> "" Then - ' FechaFCorte = TxtFechaFCorte.Text.ToDate() - 'Else - ' FechaFCorte = DateTime.MaxValue - 'End If + Dim ObjVenta As New ClsVentas() Dim CveCliente As Integer = -1 @@ -140,30 +238,18 @@ Partial Public Class General_SaldosMenores If ObjVenta.GetRepAnticiposNCIXCDetalle(CveCliente, -1, txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa, 1, -1, CveMoneda, FechaICorte, FechaFCorte, TipoCambio, TCEspecifico, SaldoMayorA:=TxtSaldoMayorA.Text.ToDecimal, SaldoMenorA:=TxtSaldoMenorA.Text.ToDecimal) Then GvDatosIXC.DataSource = ObjVenta.DtResultados - DtDatos = ObjVenta.DtResultados + DtDatosIXC = ObjVenta.DtResultados End If ObjVenta.Dispose() GvDatosIXC.DataBind() UpDatos.Update() - 'If TxtFechaFCorte.Text <> NowADS().ToShortDateString() AndAlso txtFechaI.Text <> "" Then - ' LnkHabilitarSaldar.Visible = False - ' LnkSaldar.Visible = False - 'Else - 'LnkHabilitarSaldar.Visible = True - ''End If - 'If LnkSaldar.Visible Then - ' HabilitarCheckbox() - 'End If - Tipo = -1 End Sub - Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click - CargaDatos() - End Sub + Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click 'GenerarPDF("EXCEL") @@ -173,80 +259,7 @@ Partial Public Class General_SaldosMenores 'GenerarPDF("PDF") End Sub - 'Protected Sub GenerarPDF(Opcion As String) - ' Dim FechaI As String - ' If txtFechaI.Text = "" OrElse txtFechaI.Text = "__/__/____" Then - ' FechaI = "-1" - ' Else - ' FechaI = $" Fecha Inicial: {txtFechaI.Text}" - ' End If - ' Dim FechaF As String - ' If txtFechaF.Text = "" OrElse txtFechaF.Text = "__/__/____" Then - ' FechaF = "-1" - ' Else - ' FechaF = $" Fecha Final: {txtFechaF.Text}" - ' End If - - ' Dim FechaICorte As String - ' If TxtFechaICorte.Text = "" OrElse TxtFechaICorte.Text = "__/__/____" Then - ' FechaICorte = "" - ' Else - ' FechaICorte = $" Fecha Inicial Corte: {TxtFechaICorte.Text}" - ' End If - - ' Dim FechaFCorte As String - ' If TxtFechaFCorte.Text = "" OrElse TxtFechaFCorte.Text = "__/__/____" Then - ' FechaFCorte = "" - ' Else - ' FechaFCorte = $" Fecha Final Corte: {TxtFechaFCorte.Text}" - ' End If - - ' Dim Sucursal As String - ' If DdlSucursal.SelectedValue <> "-1" Then - ' Sucursal = $" Sucursal: {DdlSucursal.SelectedItem.Text}" - ' Else - ' Sucursal = "" - ' End If - - ' Dim Cliente As String = "" - - ' Dim ConSaldo As String - ' If DdlConSaldo.SelectedValue <> "-1" Then - ' ConSaldo = $" Con Saldo: {DdlConSaldo.SelectedItem.Text}" - ' Else - ' ConSaldo = "" - ' End If - - ' Dim Tipo2 As String - ' If DdlTipo.SelectedValue <> "-1" Then - ' Tipo2 = $" Tipo: {DdlTipo.SelectedItem.Text}" - ' Else - ' Tipo2 = "" - ' End If - - ' If DtDatos.Rows.Count > 0 Then - ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - ' Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' Dim para As New List(Of ReportParameter) From { - ' New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa), - ' New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre), - ' New ReportParameter("FechaImpresion", NowADS().ToString()), - ' New ReportParameter("Tipo", Tipo.ToString()), - ' New ReportParameter("AgrupadoPor", $"Agrupado Por: {Cliente}{Sucursal}{ConSaldo}{Tipo2}{FechaI}{FechaF}{FechaICorte}{FechaFCorte}") - ' } - - ' If Imagen.Exists Then - ' para.Add(New ReportParameter("LogoPath", logouri)) - ' Else - ' para.Add(New ReportParameter("LogoPath", "")) - ' End If - - ' ImprimirPDF("Empresas/Grales/Formatos/RepAnt-NC-IXCDetalle.rdlc", DtDatos, para, "Reporte de Anticipos - NCXAplicar - IXC Detalle", Opcion) - ' Else - ' Alert("No hay datos consultados", ModExtensiones.TipoMensaje.MsgAdvertencia) - ' End If - 'End Sub Protected Sub GvDatosIXC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosIXC.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -338,120 +351,10 @@ Partial Public Class General_SaldosMenores RegistraScript("$('#DivModalSaldar').modal();") End Sub - Protected Sub BtnSaldar_Click(sender As Object, e As EventArgs) Handles BtnSaldar.Click - Dim ObjConta As New ClsContabilidad() - ObjConta.IniciaTransacSQL() - Dim CvePrePoliza As Integer = 0, CveVenta As Integer = -1, CveIE As Integer = -1 - Dim Saldo As Decimal = 0 - Dim SaldoAdmin As Decimal = 0 - Dim ImporteTotalGasto As Decimal = 0 - Dim MsgError As String = "" - - CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepNCXAplicar", 6, 0, 0, 1, TxtFecha.Text.ToDate(), TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) - Dim tMovto As Boolean = True - Dim tConceptoSaldar As Integer = 78 - - If CvePrePoliza > 0 Then - For Each Gv As GridViewRow In GvDatosIXC.Rows - Dim ConPreP As New ConceptosTipoSaldo() - - If Gv.FCCheckBox("Chk").Checked Then - If Tipo = 2 Then - ConPreP = ClsPaginas.ObtenerCveConceptoPrePoliza(6, Gv.DataKey("CveMoneda").ToEntero(), False, 2) - ElseIf Tipo = 1 Then - ConPreP.CveConcepto = 3 - End If - - 'If Tipo = 1 OrElse Tipo = 2 Then - If Gv.DataKey("CveVenta").ToEntero() > 0 Then - CveVenta = Gv.DataKey("CveVenta").ToEntero() - Saldo = -Gv.DataKey("Saldo").ToDecimal() - SaldoAdmin = Saldo - - ElseIf Gv.DataKey("CveIE").ToEntero() > 0 Then - 'ElseIf Tipo = 3 Then - ConPreP = ClsPaginas.ObtenerCveConceptoPrePoliza(18, Gv.DataKey("CveMoneda").ToEntero(), True, 2) - CveIE = Gv.DataKey("CveIE").ToEntero() - Saldo = Gv.DataKey("Saldo").ToDecimal() - SaldoAdmin = Saldo - End If - - Saldo = -Saldo ' invertimos el saldo para que se haga negativo para que sea Abono - - ImporteTotalGasto += Saldo - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, SaldoAdmin, Saldo, ConPreP.CveConcepto, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE, CveVenta, CveCliente:=Gv.DataKey("CveCliente").ToEntero()) Then - MsgError = "Ocurrio un error al saldar el movimiento" - Exit For - End If - - If Gv.DataKey("CveMoneda").ToEntero() > 1 Then - Dim ImporteMN As Decimal = (Saldo * Gv.DataKey("TipoCambio").ToDecimal() - Saldo).RoundSQL() - ImporteTotalGasto += ImporteMN - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, Saldo, ImporteMN, ConPreP.CveConceptoComplementario, Gv.DataKey("SerieFolio").ToString(), TxtConcepto.Text, CveIE, CveVenta, CveCliente:=Gv.DataKey("CveCliente").ToEntero(), ImporteME:=Saldo, TipoCambio:=Gv.DataKey("TipoCambio").ToDecimal()) Then - MsgError = "Ocurrio un error al saldar el movimiento" - Exit For - End If - End If - End If - Next - - If ImporteTotalGasto <> 0 Then - ImporteTotalGasto *= -1 ' se invierte el valor, para cuadre de prepoliza - - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, ImporteTotalGasto, ImporteTotalGasto, tConceptoSaldar, "", TxtConcepto.Text, CveIE, CveVenta, CveSubProyecto:=DdlSubProyectoSaldar.SelectedValue.ToEntero()) Then - MsgError = "Ocurrio un error al saldar el movimiento" - End If - Else - MsgError = "Poliza no insertada" - End If - End If - - If MsgError = "" Then - ObjConta.Commit() - Dim Msg As String = "Los movimientos se saldaron correctamente." - Msg &= $"

Ver Póliza   " - Alert(Msg) - Else - ObjConta.RollBack() - Alert(MsgError, ModExtensiones.TipoMensaje.MsgError) - End If - - 'LnkSaldar.Visible = False - 'LnkHabilitarSaldar.Visible = True - CargaDatos() - 'UpLnkAgregar.Update() - ObjConta.Dispose() - 'RegistraScript("$('#DivModalSaldar').modal('hide');") - TxtFecha.Text = DateTime.Today.ToString() - Upsaldar.Update() - End Sub #End Region -#Region "TIPO DE CAMBIO" - Protected Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) Handles BtnTipoCambio.Click - CargaDatos() - RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio")) - End Sub - - Protected Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged - TipoCambio = RblTipoCambio.SelectedValue.ToEntero() - - If TipoCambio = 3 Then - LiEspecifico.Visible = True - TCEspecifico = GlobalTipoCambio(NowADS()).ToString().ToDouble() - TxtEspecifico.Text = TCEspecifico.ToString() - Else - LiEspecifico.Visible = False - End If - - UpBodyTipoCambio.Update() - End Sub - -#End Region #End Region diff --git a/OC/OC.aspx b/OC/OC.aspx index a91d86f88..ad7107f52 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -272,7 +272,11 @@
- + + + + +
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index ae9fcf415..ab662b500 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -629,6 +629,8 @@ Partial Class OC_OC TxtFecha.Enabled = False End If + CargarCentrosDeCosto(Nothing, DdlSubProyectoEntrega, Nothing, Nothing, "Seleccione") + 'CARGA YA REGISTRADO If Request("OC") IsNot Nothing AndAlso IsNumeric(Request("OC")) AndAlso Request("OC").ToEntero > 0 Then @@ -831,14 +833,21 @@ Partial Class OC_OC ' aqui tiene otras condiciones especiales If CveOrdenCompra <> Nothing AndAlso CveOrdenCompra > 0 Then DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + 'DdlSubProyectoEntrega.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) Else DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) + 'DdlSubProyectoEntrega.DataSource = DtEstatusUsuarios.FiltraParametros(" SPEstatus = 1 ", "", {"CveSubProyecto", "SubProyecto"}) End If + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + + 'DdlSubProyectoEntrega.DataBind() + 'DdlSubProyectoEntrega.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlSubProyectoContrato.Items.Clear() DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) DdlSubProyectoContrato.DataBind() @@ -933,6 +942,11 @@ Partial Class OC_OC ' End If 'End If + + If UsuarioActual.CveRol = 1 Then + chkSubProyectoEntrega.Visible = True + End If + End If MostrarUsuarioAsignado() @@ -1359,6 +1373,19 @@ Partial Class OC_OC TieneInventario = CBool(objOC.DtResultados.Rows(0)("TieneInvOC")) DdlMetodoPago.SelectedValueExist(objOC.DtResultados.Rows(0)("MetodoPago")) + + If objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString.ToEntero > 0 Then + DdlSubProyectoEntrega.SelectedValueExist(objOC.DtResultados.Rows(0)("CveSubProyectoEntrega").ToString) + txtLugarEntrega.Visible = False + chkSubProyectoEntrega.Checked = True + DdlSubProyectoEntrega.Visible = True + + End If + + + + + 'PROMOCIONES TxtPromocion.Text = objOC.Promocion ChkPromocion.Checked = TxtPromocion.Text.Trim.Length > 0 @@ -1593,6 +1620,9 @@ Partial Class OC_OC EditarOC = False End Select + + + End If 'If objOC.TipoTermino = 2 Then @@ -2608,6 +2638,11 @@ Partial Class OC_OC TieneError = True End If + If chkSubProyectoEntrega.Checked AndAlso DdlSubProyectoEntrega.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar un lugar de entrega", TipoMensaje.MsgAdvertencia) + TieneError = True + End If + Return TieneError End Function @@ -2697,7 +2732,8 @@ Partial Class OC_OC LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal, RequiereCotizacion:=ChkCotizacion.Checked, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, - IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text.Trim(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then + IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text.Trim(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), + CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero) Then CveOrdenCompraPadre = OC.CveOrdenCompra If CveOrdenCompraPadre > 0 Then @@ -2738,7 +2774,7 @@ Partial Class OC_OC RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, - Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then + Promocion:=Promocion, CveProveedorContacto:=CveProveedorContacto, NumRemision:=TxtNumRemision.Text, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero) Then CveOrdenCompra = OC.CveOrdenCompra CveEstatus = CboE.SelectedValue.ToEntero @@ -2925,7 +2961,7 @@ Partial Class OC_OC LugarEntrega, DdlMoneda.SelectedValue.ToEntero, CveProveedor, CveOrdenCompra, UsuarioActual.CveUsuario, Ddlcliente.txtValue.Value.ToEntero, DdlVendedor.SelectedValue.ToEntero, txtobsprioridad.Text, IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), Guia:=TxtGuia.Text.Trim, IEPS:=TxtIEPS.Text.ToDecimal, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, Promocion:=Promocion, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveProveedorContacto:=CveProveedorContacto, - PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), NumRemision:=TxtNumRemision.Text, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then + PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), NumRemision:=TxtNumRemision.Text, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero) Then If CveProveedorOriginal <> CveProveedor Then If Not ObjConta.UpdateProveedorPoliza(CveOrdenCompra, CveProveedor, Proveedor) Then TieneError = True @@ -3395,8 +3431,9 @@ Partial Class OC_OC If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega, CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, - EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, - CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then + EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, + CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, Promocion:=Promocion, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), + CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero) Then 'CREA POLIZA POR CADA PROVEEDOR @@ -3472,7 +3509,7 @@ Partial Class OC_OC CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text, PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero, - Promocion:=Promocion, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero()) Then + Promocion:=Promocion, NumRemision:=TxtNumRemision.Text.Trim, MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero(), CveSubProyectoEntrega:=DdlSubProyectoEntrega.SelectedValue.ToEntero) Then 'USA AC @@ -9218,5 +9255,13 @@ Partial Class OC_OC + + Protected Sub chkSubProyectoEntrega_CheckedChanged(sender As Object, e As EventArgs) + + DdlSubProyectoEntrega.Visible = chkSubProyectoEntrega.Checked + txtLugarEntrega.Visible = Not chkSubProyectoEntrega.Checked + UPPEmp.Update() + + End Sub End Class diff --git a/Ventas/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index 1ac398413..349c86a99 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -346,7 +346,7 @@
Fecha Emisión: -
+
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index a92c4e624..065f12ade 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -618,7 +618,7 @@ Partial Class Ventas_ClientesAbonar Dim FechaEmision As Date = MinFecha - If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If ChkComplementoPago.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then FechaEmision = TxtFechaEmision.Text.ToDate If FechaEmision <= MinFecha Then diff --git a/Ventas/RepRecuperacionDetalle.aspx b/Ventas/RepRecuperacionDetalle.aspx index 95a21f0dc..e4ee3e6ff 100644 --- a/Ventas/RepRecuperacionDetalle.aspx +++ b/Ventas/RepRecuperacionDetalle.aspx @@ -24,6 +24,16 @@
  • Ver Dlls en pesos
    • + + +
  • + Personalizar Columnas +
    • +     +     + + + @@ -210,7 +220,7 @@
    -
    +
    @@ -269,10 +279,13 @@
    + + + @@ -291,10 +304,27 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +