diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 029f871b0..cb5ec3879 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3016,53 +3016,7 @@ - - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 56ab2f9d3..2286b0fdc 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1710,30 +1710,30 @@ Partial Class Ventas #End Region -#Region "AuxiliarConta" - Property CvePrePolizaNegativa As Integer - Get - If ViewState("CvePrePolizaNegativa") Is Nothing Then - Return -1 - Else - Return ViewState("CvePrePolizaNegativa").ToString.ToEntero - End If + '#Region "AuxiliarConta" + ' Property CvePrePolizaNegativa As Integer + ' Get + ' If ViewState("CvePrePolizaNegativa") Is Nothing Then + ' Return -1 + ' Else + ' Return ViewState("CvePrePolizaNegativa").ToString.ToEntero + ' End If - End Get - Set(value As Integer) - ViewState("CvePrePolizaNegativa") = value - End Set - End Property + ' End Get + ' Set(value As Integer) + ' ViewState("CvePrePolizaNegativa") = value + ' End Set + ' End Property - Private Property DTDatos As DataTable - Get - Return CType(ViewState("DTDatos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTDatos") = value - End Set - End Property -#End Region + ' Private Property DTDatos As DataTable + ' Get + ' Return CType(ViewState("DTDatos"), DataTable) + ' End Get + ' Set(value As DataTable) + ' ViewState("DTDatos") = value + ' End Set + ' End Property + '#End Region #Region " A C U M U L A D O R E S" @@ -2477,7 +2477,9 @@ Partial Class Ventas CargaFletes() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="") + DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue) CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME, AplicaTodos:="") + DdlProyectoPyME.SelectedValueExist(DdlSubProyectoDatos.SelectedValue) BrSubProyecto.Visible = DdlProyecto.Visible divProyectoPyME.Visible = DdlProyecto.Visible @@ -4078,6 +4080,8 @@ Partial Class Ventas DdlSubProyectoDatos.Items.Insert(0, New ListItem("Seleccione", "-1")) End If DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString(), DbRowVenta("SubProyecto").ToString()) + DdlSubProyecto.SelectedValueExist(DbRowVenta("CveSubProyecto").ToString()) + CargarAlmacenes() If DdlSubProyectoCobranza.Items.Count = 0 Then @@ -18708,6 +18712,11 @@ Partial Class Ventas If ObjInv.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then If ObjInv.DtResultados.Rows.Count > 0 Then CargaGVInv(ObjInv.DtResultados) + Else + 'si es la empresa 119, Candado, no permiter refacturar, si no se ha surtido, para que cancele la factura mejor. + If UsuarioActual.CveEmpresa = 119 AndAlso LkRefacturacion.Visible AndAlso ObjInv.DtResultados.Rows.Count = 0 Then + LkRefacturacion.Visible = False + End If End If End If ObjInv.Dispose() @@ -26165,7 +26174,7 @@ Partial Class Ventas Private Sub CargaAuxiliarClienteCxC(CveCliente As Integer, CveVenta As Integer) Dim ObjMovtos As New ClsMovimientos() If ObjMovtos.GetCxCClienteAuxiliar(CveCliente, CveVenta) Then - DTDatos = ObjMovtos.DtResultados + ' DTDatos = ObjMovtos.DtResultados GVAuxiliar.DataSource = ObjMovtos.DtResultados Else GVAuxiliar.DataSource = Nothing @@ -26174,48 +26183,48 @@ Partial Class Ventas GVAuxiliar.DataBind() End Sub - Protected Sub BtnCancelarAux_Click(sender As Object, e As EventArgs) - AgregaPolizaNegativo(CvePrePolizaNegativa) - End Sub + ''Protected Sub BtnCancelarAux_Click(sender As Object, e As EventArgs) + '' 'AgregaPolizaNegativo(CvePrePolizaNegativa) + ''End Sub - Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer) + ''Private Sub AgregaPolizaNegativo(CvePrePoliza As Integer) - Dim ObjContabilidad As New ClsContabilidad - Dim TieneError As Boolean = False - ObjContabilidad.IniciaTransacSQL() + '' Dim ObjContabilidad As New ClsContabilidad + '' Dim TieneError As Boolean = False + '' ObjContabilidad.IniciaTransacSQL() - Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate) + '' Dim CvePrePolizaNueva As Integer = ObjContabilidad.AddPrePolizasNegativa(CvePrePoliza, UsuarioActual.CveUsuario, TxtConceptoCancelacion.Text, UsuarioActual.CveEmpresa, TxtFechaCancelacion.Text.ToDate) - If Not CvePrePolizaNueva > 0 Then + '' If Not CvePrePolizaNueva > 0 Then - TieneError = True - End If + '' TieneError = True + '' End If - If Not TieneError Then + '' If Not TieneError Then - ObjContabilidad.Commit() - Dim Str As New StringBuilder - Str.Append("Se agrego la póliza de cancelación correctamente.
") - RegistraScript(" $('#DivCancelar').modal('hide'); ") - If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then - Str.AppendFormat("Ver Poliza", ObjContabilidad.ContaIdPoliza) + '' ObjContabilidad.Commit() + '' Dim Str As New StringBuilder + '' Str.Append("Se agrego la póliza de cancelación correctamente.
") + '' RegistraScript(" $('#DivCancelar').modal('hide'); ") + '' If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then + '' If ObjContabilidad.ContabilizarPrePoliza(CvePrePolizaNueva, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + '' Str.AppendFormat("Ver Poliza", ObjContabilidad.ContaIdPoliza) - End If - End If - Alert(Str.ToString) - Else - ObjContabilidad.RollBack() + '' End If + '' End If + '' Alert(Str.ToString) + '' Else + '' ObjContabilidad.RollBack() - End If + '' End If - ObjContabilidad.Dispose() - CargarSaldoAuxiliar(CveCliente) + '' ObjContabilidad.Dispose() + '' CargarSaldoAuxiliar(CveCliente) - End Sub + ''End Sub Protected Sub GVAuxiliar_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAuxiliar.RowDataBound