diff --git a/Acumuladores/EntradasUsados.aspx b/Acumuladores/EntradasUsados.aspx deleted file mode 100644 index b7c2dd864..000000000 --- a/Acumuladores/EntradasUsados.aspx +++ /dev/null @@ -1,19 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasUsados.aspx.vb" Inherits="Acumuladores_EntradasUsados" %> - - - - - - - - - - - - - - - - - - diff --git a/Acumuladores/EntradasUsados.aspx.vb b/Acumuladores/EntradasUsados.aspx.vb deleted file mode 100644 index 3a0e4f59c..000000000 --- a/Acumuladores/EntradasUsados.aspx.vb +++ /dev/null @@ -1,5 +0,0 @@ - -Partial Class Acumuladores_EntradasUsados - Inherits System.Web.UI.Page - -End Class diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx b/Acumuladores/EntradasUsadosResumenRep.aspx new file mode 100644 index 000000000..9399901c2 --- /dev/null +++ b/Acumuladores/EntradasUsadosResumenRep.aspx @@ -0,0 +1,104 @@ +<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="EntradasUsadosResumenRep.aspx.vb" Inherits="Acumuladores_RepEntradasUsados" %> + + + + + + + Reporte de Usados + + + + +
  • + +
    • +     + + + +     +     + + + + + + + +
    +
    +
    + + +
    +
    +
    + +
    + +
    + +
    +
    + + + + +
    + + + + + + +
    + +
    +
    + + + + +
    + + + + + + +
    +
    +
    +
    +
    +
    +
    + + + + + + + + + + + + + + + + + + + +     +     +     + + + + diff --git a/Acumuladores/EntradasUsadosResumenRep.aspx.vb b/Acumuladores/EntradasUsadosResumenRep.aspx.vb new file mode 100644 index 000000000..8e8489b85 --- /dev/null +++ b/Acumuladores/EntradasUsadosResumenRep.aspx.vb @@ -0,0 +1,66 @@ +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class Acumuladores_RepEntradasUsados + Inherits ClsPaginas + + Private DiasSemana(7) As String + Private Meses(12) As String + + Private Property DatosEntradasUsados() As DataTable + Get + Return CType(ViewState("DatosEntradasUsados"), DataTable) + End Get + Set(value As DataTable) + ViewState("DatosEntradasUsados") = value + End Set + End Property + + Protected Sub Page_Load() Handles Me.Load + If Not IsPostBack Then + txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1)) + txtFechaF.Text = Today + CargarDatos() + End If + End Sub + + Protected Sub CargarDatos() + DdlAlmacenes.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) + DdlAlmacenes.DataBind() + End Sub + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + Dim ObjAcum As New ClsAcumuladores + + If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then + GvAcum.DataSource = ObjAcum.DtResultados + DatosEntradasUsados = ObjAcum.DtResultados + + End If + ObjAcum.Dispose() + GvAcum.DataBind() + + End Sub + + Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) + + + Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2)) + Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1) + + Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Month(Today), Mes, Year(Today)) + + Dim params As New List(Of ReportParameter) + + params.Add(New ReportParameter("Direccion", "asdfasdfasdf")) + params.Add(New ReportParameter("FechaConFormato", FechaConFormato)) + params.Add(New ReportParameter("FechaInicial", txtFechaI.Text)) + params.Add(New ReportParameter("FechaFinal", txtFechaF.Text)) + + Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados} + + ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados2.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "prueba", "PDF") + + End Sub +End Class diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx new file mode 100644 index 000000000..3a55af4e0 --- /dev/null +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -0,0 +1,65 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEntradasUsadosClientes.aspx.vb" Inherits="Acumuladores_RepEntradasUsadosClientes" %> + + + + + + + + + + + + + + + + +
    +
    +
    + + "> + +
    +
    +
    Almacen:
    +
    + +
    +
    +
    Fecha Inicio:
    +
    +
    + + + + +
    + + +
    +
    Fecha Fin:
    +
    +
    + + + + +
    + + +
    + +
    +
    +
    + +
    +     +     + +     + + + diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb new file mode 100644 index 000000000..29d60c703 --- /dev/null +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -0,0 +1,48 @@ +Imports Extensiones +Imports System + +Partial Class Acumuladores_RepEntradasUsadosClientes + Inherits ClsPaginas + + Private Sub Acumuladores_EntradasUsados_Load(sender As Object, e As EventArgs) Handles Me.Load + + If Not Page.IsPostBack Then + CargaCombos() + End If + + End Sub + + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + + End Sub + + Public Sub CargaCombos() + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + DdlAlmacen.DataBind() + DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) + + TxtFechaI.text = now.Firstdayofmonth + txtfechaf.text = now.toshortdatestring + + End Sub + + Private Sub CargaDatos() + + Dim FechaI, FechaF As Date + FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim.todate, minfecha) + FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim.todate, maxfecha) + + Dim CveAlmacen As Integer = If(DdlAlmacen.SelectedValue = "", "-1", DdlAlmacen.SelectedValue).ToString.toentero + + Dim Acum As New ClsAcumuladores + + If Acum.EntradasUsadosClientesRep(CveAlmacen, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + GvDatos.datasource = Acum.DtResultados + End If + + Acum.Dispose() + GvDatos.databind + + End Sub +End Class diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 423775dc4..870e809fa 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -243,12 +243,38 @@ Public Class ClsAcumuladores End Try Return Retorno - End Function - + End Function + + Public Function EntradasUsadosGet(CveEmpresa As Integer, CveAlmacen As Integer, FechaInicial As Date, FechaFinal As Date) As Boolean + Dim retorno As Boolean = False + + SqlDataAdapter("PA_Acum_EntradasUsadosResumenRep") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen + .Add("@FechaInicial", SqlDbType.Date).Value = FechaInicial + .Add("@FechaFinal", SqlDbType.Date).Value = FechaFinal + End With + + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + + OnError("Ocurrió un error al traerse el reporte de usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + + End Try + + Return retorno + + End Function + + #End Region - + #Region " TIPOS DEFECTO " - + Public Function TiposDefectoGet(CveTipoDefecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -674,7 +700,7 @@ Public Class ClsAcumuladores #Region "GARANTIAS DETALLES" - Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer, + Public Function AddGarantiasDetalle(CveVentaDetalle As Integer, CvePS As Integer, CveFolioGarantia As Integer, CveTipoUso As Integer, CodigoEnsamble As String, CodigoLinea As String, CodigoInspeccion As String, CveTipoDefecto As Integer, NumPoliza As String, Importe As Double, Consecutivo As String) As Boolean @@ -682,6 +708,7 @@ Public Class ClsAcumuladores SqlDataAdapter("PA_Acum_GarantiasDetalleAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle + .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia .Add("@CveTipoUso", SqlDbType.Int).Value = CveTipoUso .Add("@CodigoEnsamble", SqlDbType.VarChar).Value = CodigoEnsamble @@ -840,11 +867,11 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function EntradasUsadosGet(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function EntradasUsadosClientesRep(CveAlmacen As Integer, FechaI As Date, FechaF As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable - SqlDataAdapter("PA_Acum_EntradasUsadosGet") + SqlDataAdapter("PA_Acum_EntradasUsadosClientesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 09af84a3e..c74ea1059 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1778,7 +1778,11 @@ Public Class ClsInventarios Retorno = SqlAdapter.SelectCommand.Parameters("@Existencia").Value.ToString.ToDecimal() Me.CvePS = SqlAdapter.SelectCommand.Parameters("@CvePSRetorno").Value.ToString.ToEntero Catch Ex1 As SqlException - Me.OnError("Ocurrió un error al obtener las existencias del producto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + If Ex1.Message.Contains("deadlocked") Then + Me.OnError("Ocurrió un error al obtener las existencias del producto. Puede intentarlo de nuevo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Else + Me.OnError("Ocurrió un error al obtener las existencias del producto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If Catch ex As Exception OnError("Ocurrió un error al obtener las existencias del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try @@ -3290,8 +3294,27 @@ Public Class ClsInventarios End Function #End Region + Public Function GetMovimientoMetodoNulo(CveMovimiento As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_MovimientoMetodoNulo") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento + .Add("@Valido", SqlDbType.Int).Direction = ParameterDirection.Output + End With + + Try + SqlAdapter.Fill(Data) + Retorno = If(SqlAdapter.SelectCommand.Parameters("@Valido").Value.ToString.ToEntero = 1, True, False) + Catch ex As Exception + OnError("Ocurrió un error al obtener El Costo del Producto/Servicio.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #Region " INVENTARIOS - COSTO PS " - Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Date, Optional CveSubProyecto As Integer = -1, Optional CveTipoAlmacen As Integer = 1) As Decimal + Public Function GetCostoPS(CvePS As Integer, Cantidad As Double, CveAlmacen As Integer, SerieLote As String, FechaFin As Datetime, Optional CveSubProyecto As Integer = -1, Optional CveTipoAlmacen As Integer = 1) As Decimal Dim Retorno As Decimal = -1D DataAdapter("PA_Inv_PSCostoGet") @@ -3300,7 +3323,7 @@ Public Class ClsInventarios .Add("@Cantidad", SqlDbType.Float).Value = Cantidad .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen .Add("@SerieLote", SqlDbType.VarChar).Value = SerieLote - .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen .Add("@Costo", SqlDbType.Money).Direction = ParameterDirection.Output diff --git a/App_Code/ClsModulos.vb b/App_Code/ClsModulos.vb index a26983a44..3c47376f4 100644 --- a/App_Code/ClsModulos.vb +++ b/App_Code/ClsModulos.vb @@ -429,7 +429,7 @@ Public Class ClsModulos ' Visual Basic agregó este código para implementar correctamente el modelo descartable. Public Sub Dispose() Implements IDisposable.Dispose ' No cambie este código. Coloque el código de limpieza en Dispose ( que se dispone como Boolean). - ConexionClose() + 'ConexionClose() Dispose(True) GC.SuppressFinalize(Me) End Sub diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index a98a423b0..5dbc2169f 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -172,6 +172,25 @@ Public Class ClsNominas #Region "ClsNominas_Nominas" + Public Function GetCalculoAguinaldo(ejercicio As Int32, cveEmpresa As Int32, importe As Double, CveTipoPeriodo As Integer, CvePeriodo As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_NomCalcularAguinaldo", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa + .Add("@Ejercicio", SqlDbType.Int).Value = ejercicio + .Add("@Importe", SqlDbType.Float).Value = importe + .Add("@CveTipoPeriodo", SqlDbType.Float).Value = CveTipoPeriodo + .Add("@CvePeriodo", SqlDbType.Float).Value = CvePeriodo + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Realizar el calculo del Aguinaldo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function GetCalculoUtilidades(ejercicio As Int32, cveEmpresa As Int32, importe As Double, importeA As Double) As Boolean Dim retorno As Boolean = False DataAdapter("PA_NomCalcularUtilidades", CommandType.StoredProcedure) @@ -1890,6 +1909,102 @@ Public Class ClsNominas End Try Return retorno End Function +#Region "MovtosPermanentes" + + Public Function GetMovtoPermanente(CveEmpresa As Int32, CvePersonal As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_GetMovtoPermanente", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function AddMovtoPermanente(cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_AddMovtoPermanente", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@cveConcepto", SqlDbType.Int).Value = (cveConcepto) + .Add("@cvePersonal", SqlDbType.Int).Value = (cvePersonal) + .Add("@descripcion", SqlDbType.VarChar).Value = (descripcion) + .Add("@tipoDescuento", SqlDbType.Int).Value = (tipoDescuento) + .Add("@valor", SqlDbType.Float).Value = (valor) + .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar) + .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite) + .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion) + .Add("@estatus", SqlDbType.Bit).Value = (estatus) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function UpMovtoPermanente(cveMovtoPermanente As Int32, cveConcepto As Int32, cvePersonal As Int32, descripcion As String, tipoDescuento As Int32, valor As Double, vecesAplicar As Int32, montoLimite As Decimal, fechaInicioAplicacion As String, estatus As Boolean) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_UpMovtoPermanente", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@cveMovtoPermanente", SqlDbType.Int).Value = (cveMovtoPermanente) + .Add("@cveConcepto", SqlDbType.Int).Value = (cveConcepto) + .Add("@cvePersonal", SqlDbType.Int).Value = (cvePersonal) + .Add("@descripcion", SqlDbType.VarChar).Value = (descripcion) + .Add("@tipoDescuento", SqlDbType.Int).Value = (tipoDescuento) + .Add("@valor", SqlDbType.Float).Value = (valor) + .Add("@vecesAplicar", SqlDbType.Int).Value = (vecesAplicar) + .Add("@montoLimite", SqlDbType.Decimal).Value = (montoLimite) + .Add("@fechaInicioAplicacion", SqlDbType.VarChar).Value = (fechaInicioAplicacion) + .Add("@estatus", SqlDbType.Bit).Value = (estatus) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function RemoveMovtoPermanente(cveMovtoPermanente As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RemoveMovtoPermanente", CommandType.StoredProcedure) + + With SqlAdapter.SelectCommand.Parameters + .Add("@cveMovtoPermanente", SqlDbType.Int).Value = (cveMovtoPermanente) + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al agregar los Movtos Permanentes.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function +#End Region + #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 71f7c993a..0550ccc34 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4581,7 +4581,8 @@ Public Class ClsPaginas PaginaDict.Add("/Acumuladores/CatTiposUso.aspx".ToUpper(), 1034) PaginaDict.Add("/Acumuladores/CatFoliosGarantia.aspx".ToUpper(), 1035) PaginaDict.Add("/Acumuladores/CatGarantiasMeses.aspx".ToUpper(), 1036) - PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543) + 'PaginaDict.Add("/Acumuladores/EntradasUsados.aspx".ToUpper(), 543) + PaginaDict.Add("/Acumuladores/EntradasUsadosResumenRep.aspx".ToUpper(), 1032) 'Antes de aquí. diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 3df18c5db..317ff984a 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1696,6 +1696,41 @@ Public Class ClsProductosServicios Return Retorno End Function + Public Function UpdatePSPrecios(Importe As Decimal, CvePrecioLista As Integer, Porcentaje As Decimal, CvePS As Integer, CveUsuario As Integer, Fecha As DateTime, Fijo As Boolean, Optional PrecioMinimo As Decimal = Nothing) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_PSPrecioUpdate") + + With SqlAdapter.SelectCommand.Parameters + + If Importe = -1 Then + .Add("@Importe", SqlDbType.Float).Value = DBNull.Value + Else + .Add("@Importe", SqlDbType.Float).Value = Importe + End If + + If Porcentaje = -1 Then + .Add("@Porcentaje", SqlDbType.Money).Value = DBNull.Value + Else + .Add("@Porcentaje", SqlDbType.Money).Value = Porcentaje + End If + + .Add("@PrecioMinimo", SqlDbType.Decimal).Value = PrecioMinimo + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@Fecha", SqlDbType.DateTime).Value = Fecha + .Add("@Fijo", SqlDbType.Bit).Value = Fijo + + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar los precios de lista.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetPSPrecioLista(CvePS As Integer, CveEmpresa As Integer, Optional CvePrecioLista As Integer = -1) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 022ef5ff0..b072d702b 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -131,7 +131,8 @@ Public Class ClsRH Return Retorno End Function - Public Function AddAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function AddAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, CveUsuario As Integer, CveEmpresa As Integer, + chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_AsistenciasInasistenciasAdd") @@ -143,6 +144,12 @@ Public Class ClsRH .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@AplicaVacacion", SqlDbType.Bit).Value = chkAplicaVacacion + .Add("@AplicaIncapacidad", SqlDbType.Bit).Value = chkAplicaIncapacidad + .Add("@AplicaRetardo", SqlDbType.Bit).Value = chkAplicaRetardo + .Add("@AplicaAguinaldo", SqlDbType.Bit).Value = chkAplicaAguinaldo + .Add("@AplicaUtilidades", SqlDbType.Bit).Value = chkAplicaUtilidades + End With Try @@ -161,7 +168,8 @@ Public Class ClsRH Return Retorno End Function - Public Function UpdateAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, Estatus As Boolean, CveAI As Integer) As Boolean + Public Function UpdateAsistenciasInasistencias(Tipo As String, AplicaFalta As Boolean, AplicaAsistencia As Boolean, Estatus As Boolean, CveAI As Integer, +chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo As Boolean, chkAplicaAguinaldo As Boolean, chkAplicaUtilidades As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_AsistenciasInasistenciasUpdate") @@ -172,6 +180,12 @@ Public Class ClsRH .Add("@AplicaAsistencia", SqlDbType.Bit).Value = AplicaAsistencia .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveAsistenciasInasistencias", SqlDbType.Int).Value = CveAI + + .Add("@AplicaVacacion", SqlDbType.Bit).Value = chkAplicaVacacion + .Add("@AplicaIncapacidad", SqlDbType.Bit).Value = chkAplicaIncapacidad + .Add("@AplicaRetardo", SqlDbType.Bit).Value = chkAplicaRetardo + .Add("@AplicaAguinaldo", SqlDbType.Bit).Value = chkAplicaAguinaldo + .Add("@AplicaUtilidades", SqlDbType.Bit).Value = chkAplicaUtilidades End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index fad317df6..55cd012c9 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2344,13 +2344,14 @@ Public Class ClsVentas #Region " ANTICIPOS/NOTASCREDITO - VENTAS " - Public Function GetVentasAntNC(CveVenta As Integer, CveVentaNC As Integer) As Boolean + Public Function GetVentasAntNC(CveVenta As Integer, CveVentaNC As Integer, Optional AplicaAmortizacion As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasAntNCGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveVentaNC", SqlDbType.Int).Value = CveVentaNC + .Add("@AplicaAmortizacion", SqlDbType.Bit).Value = AplicaAmortizacion End With Try diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 0e91e582c..e4cdc187b 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -491,6 +491,10 @@ Namespace Modelos If ObjVentas.GetVentasAntNC(-1, CveVenta) Then Me.DtNCVinculadas = ObjVentas.DtResultados.Copy() End If + + If ObjVentas.GetVentasAntNC(-1, CveVenta, AplicaAmortizacion:=EsNCAmortizacion) Then + Me.DtAnticipos = ObjVentas.DtResultados.Copy() + End If End If End If @@ -501,12 +505,6 @@ Namespace Modelos ObjVentas.Dispose() - 'Dim ObjMovtos As New ClsMovimientos() - 'If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente, CveMoneda) Then - ' Me.DtAnticipos = ObjMovtos.DtResultados.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, "AND Tipo = 'Ant'", "")} {If(TipoDocto = "Ant", "AND Tipo = 'NC'", "")}") - 'End If - 'ObjMovtos.Dispose() - If Me.RealizarDevolucionAlmacen Then Me.CveAlmacenDevolucion = Me.CveAlmacenDevolucionVenta End If @@ -1349,7 +1347,7 @@ Namespace Modelos 'Ajustes' If DtAjustes IsNot Nothing AndAlso DtAjustes.Rows.Count > 0 Then For Each Dr As DataRow In DtAjustes.Rows - If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, + If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero, Dr("CodigoEnsamble").ToString, Dr("CodigoLinea").ToString, Dr("CodigoInspeccion").ToString, Dr("CveTipoDefecto").ToString.ToEntero, Dr("NumPoliza").ToString, Dr("Importe").ToString.ToDouble, Dr("Consecutivo").ToString) Then ErrorList.Add("Ocurrió un error al agregar la garantia detalle.") @@ -2335,12 +2333,12 @@ Namespace Modelos Exit Select End If - If ObjFactura.TipoDocto = "Ing" AndAlso ValorMultiplicador = -1 Then - For Each row2 As DataRow In ObjFactura.DtAntNCVinculadas.Rows + If ObjFactura.TipoDocto.Contiene("Ing", "Egs") AndAlso ValorMultiplicador = -1 Then + For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows If row2("CveConceptoContable").ToString().ToEntero = 11 Then importeMovimiento = row2("Importe").ToString().ToDecimal * ValorMultiplicador '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - + CveIEAnticipo = -1 IdCtaContable = ObjFactura.Cliente.IdCtaContAnticipos CveCuenta = ObjFactura.Cliente.CveCuentaAnticipos CveSubProyectoContabilizar = CveSubProyectoVenta @@ -2358,38 +2356,40 @@ Namespace Modelos Next End If - 'cuando es anticipo - ' cuando es amortización de nota de crédito, y es la nc - ' cuando es amortización por descuento, y es el ingreso - ' cuando es amortización en cero - If ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.TipoDocto.Contiene("Egs") OrElse - ObjFactura.CveTipoAmortizacionAnticipo = 1 AndAlso ObjFactura.TipoDocto.Contiene("Ing") OrElse - ObjFactura.CveTipoAmortizacionAnticipo = 3 Then - - For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows - If row2("CveConceptoContable").ToString().ToEntero = 3 Then - CveIEAnticipo = row2("CveIE").ToString.ToEntero - importeMovimiento = row2("Importe").ToString().ToDecimal() '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal) - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - - IdCtaContable = ObjFactura.Cliente.IdCtaContAnticipos - CveCuenta = ObjFactura.Cliente.CveCuentaAnticipos - CveSubProyectoContabilizar = CveSubProyectoVenta - - If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2("CveVenta").ToString.ToEntero, - CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, - ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, - CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - Exit For - Else - ObjFactura.SeGuardoPrePoliza = True - End If - End If - End If - Next + If ValorMultiplicador = 1 Then + 'cuando es anticipo + ' cuando es amortización de nota de crédito, y es la nc + ' cuando es amortización por descuento, y es el ingreso + ' cuando es amortización en cero + If ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.TipoDocto.Contiene("Egs") OrElse + ObjFactura.CveTipoAmortizacionAnticipo = 1 AndAlso ObjFactura.TipoDocto.Contiene("Ing") OrElse + ObjFactura.CveTipoAmortizacionAnticipo = 3 Then + For Each row2 As DataRow In ObjFactura.DtAnticipos.Rows + If row2("CveConceptoContable").ToString().ToEntero = 11 Then + CveIEAnticipo = -1 + importeMovimiento = row2("Importe").ToString().ToDecimal() + If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + + IdCtaContable = ObjFactura.Cliente.IdCtaContAnticipos + CveCuenta = ObjFactura.Cliente.CveCuentaAnticipos + CveSubProyectoContabilizar = CveSubProyectoVenta + + If importeMovimiento <> 0 Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, + CveVentaAmortizacion:=row2("CveVenta").ToString.ToEntero, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, + ImporteMX:=importeMovimiento * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, + CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + Exit For + Else + ObjFactura.SeGuardoPrePoliza = True + End If + End If + End If + Next + End If End If + 'Cuando la funcionalidad de amortizacion en PS esta activa If Not ErrorPrepoliza Then DT = TmpDTDetalle.FiltraParametros($"CvePS = {ObjFactura.CvePSAmortizacion}") @@ -2667,7 +2667,7 @@ Namespace Modelos importeMovimiento = 0 Case 150 'Descuento sobre ventas - If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then + If ObjFactura.TipoDocto.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then Dim ConceptoContableAplicar = 150 Dim CveVentaAplicar = ObjFactura.CveVenta @@ -3858,6 +3858,13 @@ Namespace Modelos Return Retorno End If + If ObjFactura.TipoDocto = "Ant" AndAlso ObjFactura.SaldoAmortizado > 0 Then + Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados." + Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia + + Return Retorno + End If + 'SI LA REMISION ESTA FACTURADA NO SE PUEDE CANCELAR If ObjFactura.TipoDocto = "Rem" Then Dim ObjV As New ClsVentas @@ -4283,11 +4290,6 @@ Namespace Modelos End If End If - 'REALIZA LA DEVOLUCION AL ALMACEN VIRTUAL - If Not GeneraMovimientosVirtuales(CveVenta, ObjInventario) Then - ErrorCancelar = True - MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." - End If Else 'UTILIZA LA DEVOLUCION YA REALIZADA If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then @@ -4298,6 +4300,12 @@ Namespace Modelos End If End If + 'REALIZA LA DEVOLUCION AL ALMACEN VIRTUAL + If Not GeneraMovimientosVirtuales(CveVenta, ObjInventario) Then + ErrorCancelar = True + MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." + End If + 'DEVOLUCION REMISION - REGRESA LAS EXISTENCIAS A ENTREGA POR ADELANTADO SI LA FACTURA VIENE DE REMISION If Not ErrorCancelar AndAlso RevivirRemisiones Then If Not GeneraMovimientosEntregaPorAdelantadoRemision(CveMovimiento, ObjVentas, ObjInventario, DtDevRem, ListaRemisionesCancelar) Then @@ -5057,6 +5065,8 @@ Namespace Modelos Public Property SaldoVentaDevolucion As Decimal Public Property Saldo As Decimal Public Property SaldoAlmacen As Decimal + Public Property SaldoAnticipo As Decimal + Public Property SaldoAmortizado As Decimal Public Property CvePAC As Integer Public Property CveAnticipo As Integer Public Property RemisionesLista As List(Of Integer) @@ -5544,6 +5554,7 @@ Namespace Modelos Public Property CveVentaRelacion As Integer = -1 Public Property ImporteRelacion As Decimal + Public Property EsNCAmortizacion As Boolean #End Region @@ -9736,6 +9747,119 @@ Namespace Modelos Public Property RequierePersonal As Boolean Public Property EsAcumulador As Boolean End Class - #End Region + +#Region "P O L I Z A - V I R T U A L" + Public Class MPolizaVentaLTHWSD + Public Property customer_name As String + Public Property customer_last_name1 As String + Public Property customer_last_name2 As String + Public Property customer_birthday As DateTime + Public Property customer_phone As String + Public Property customer_email As String + Public Property customer_gender As String + Public Property customer_advertising As Boolean + Public Property sale_date As DateTime + Public Property sale_paidby As String + Public Property sale_type As String + Public Property sale_type_service As String + Public Property product_code As String + Public Property product_unique_code As String + Public Property product_sale_type As String + Public Property used_product As Boolean + Public Property used_brand As String + Public Property used_bci As String + Public Property used_month As Integer + Public Property used_year As Integer + Public Property used_sale_date As DateTime + Public Property customer_car_brand As String + Public Property customer_car_model As String + Public Property customer_car_year As Integer + Public Property sale_discount As Decimal + Public Property sale_id As String + End Class + Public Class MPolizaVentaWS + Public Property customer_name As String + Public Property customer_last_name1 As String + Public Property customer_last_name2 As String + Public Property customer_birthday As DateTime + Public Property customer_phone As String + Public Property customer_email As String + Public Property customer_gender As String + Public Property customer_advertising As Boolean + Public Property sale_date As DateTime + Public Property sale_paidby As String + Public Property sale_type As String + Public Property sale_type_service As String + Public Property sale_total As Decimal + Public Property product_code As String + Public Property product_unique_code As String + Public Property product_sale_type As String + Public Property used_product As Boolean + Public Property used_brand As String + Public Property used_bci As String + Public Property used_month As Integer + Public Property used_year As Integer + Public Property used_sale_date As DateTime + Public Property customer_car_brand As String + Public Property customer_car_model As String + Public Property customer_car_year As Integer + Public Property sale_discount As Decimal + Public Property sale_id As String + End Class + Public Class MIndicador + + Sub New(Optional UsaValoresPrueba As Boolean = False) + If UsaValoresPrueba Then + Dim Index As Integer = 0 + For Each p As Reflection.PropertyInfo In Me.GetType().GetProperties() + Index = Index + 1 + p.SetValue(Me, Convert.ChangeType(Index, p.PropertyType), Nothing) + Next + End If + End Sub + + Public Property v_b_optima As Integer + Public Property v_b_fullpower As Integer + Public Property v_b_hitec As Integer + Public Property v_b_agm As Integer + Public Property v_b_suv As Integer + Public Property v_b_taxi As Integer + Public Property v_b_america As Integer + Public Property v_b_lth As Integer + Public Property v_b_cronos As Integer + Public Property v_b_diener As Integer + Public Property v_b_heavyduty As Integer + Public Property v_m_lth As Integer + Public Property v_o_filtros As Integer + Public Property v_o_lub1 As Integer + Public Property v_o_lubgalon As Integer + Public Property v_o_lub5 As Integer + Public Property v_o_aa As Integer + Public Property v_o_aaa As Integer + Public Property g_b_optima As Integer + Public Property g_b_fullpower As Integer + Public Property g_b_hitec As Integer + Public Property g_b_agm As Integer + Public Property g_b_suv As Integer + Public Property g_b_taxi As Integer + Public Property g_b_america As Integer + Public Property g_b_lth As Integer + Public Property g_b_cronos As Integer + Public Property g_b_diener As Integer + Public Property g_b_heavyduty As Integer + Public Property g_m_lth As Integer + Public Property a_b_optima As Integer + Public Property a_b_fullpower As Integer + Public Property a_b_hitec As Integer + Public Property a_b_agm As Integer + Public Property a_b_suv As Integer + Public Property a_b_taxi As Integer + Public Property a_b_america As Integer + Public Property a_b_lth As Integer + Public Property a_b_cronos As Integer + Public Property a_b_diener As Integer + Public Property a_b_heavyduty As Integer + End Class +#End Region End Namespace \ No newline at end of file diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 11b2f7c26..f4a068120 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -367,9 +367,9 @@ Namespace Extensiones End Sub - Public Sub OnError(Obj As Object, Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "") + Public Sub OnError(Obj As Object, Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "", Optional TipoMensaje As TipoMensaje = TipoMensaje.MsgError) GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional)) - Alert(Obj, Mensaje, TipoMensaje.MsgError) + Alert(Obj, Mensaje, TipoMensaje) If WebConfigurationManager.AppSettings("SiteName") IsNot Nothing AndAlso WebConfigurationManager.AppSettings("SiteName").ToString = "1" Then MandaCorreoError(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", Mensaje, Exeption.ToString, vbCrLf, InfoAdicional)) End Sub diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index 56fd3a6bb..e778a21ea 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -105,7 +105,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle Me.GvDatos.DataSource = Nothing End If - OrdenaDatos() + ' OrdenaDatos() End Sub Public Sub CargaDatosPoliza(CvePlantillaPoliza As Integer) Dim ObjPlantillaPolizas As New ClsContabilidad diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index bedb6ca26..11221fb2f 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -371,15 +371,15 @@ Partial Class General_SaldosIniciales Exit Sub End If - If Not dt.Columns(12).ColumnName = "Servicio" Then - Alert("El nombre de la treceava columna debe ser 'Servicio'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If + 'If Not dt.Columns(12).ColumnName = "Servicio" Then + ' Alert("El nombre de la treceava columna debe ser 'Servicio'. Favor de corregirlo", TipoMensaje.MsgError) + ' Exit Sub + 'End If - If Not dt.Columns(13).ColumnName = "Conversion Unidad" Then - Alert("El nombre de la catorceava columna debe ser 'Conversion Unidad'. Favor de corregirlo", TipoMensaje.MsgError) - Exit Sub - End If + 'If Not dt.Columns(13).ColumnName = "Conversion Unidad" Then + ' Alert("El nombre de la catorceava columna debe ser 'Conversion Unidad'. Favor de corregirlo", TipoMensaje.MsgError) + ' Exit Sub + 'End If ElseIf RblFormato.SelectedValue = "6" Then If Not dt.Columns(0).ColumnName = "Código" Then @@ -669,8 +669,8 @@ Partial Class General_SaldosIniciales Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal Dim Tamaño As String = Row("Tamaño").ToString.Trim Dim SATClavePS As String = Row("Código SAT").ToString.Trim - Dim Clasificacion2 As String = Row("Servicio").ToString.Trim - Dim Litraje As Double = Row("Conversion Unidad").ToString.ToDouble + Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString.Trim, "") + Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString.ToDouble, 0) Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "") Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "") Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "") diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 657be3877..55e2ac042 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -81,23 +81,22 @@ Partial Class Inicio If UsuarioActual.CveRol = 1 Then divInd.Visible = True CargaSubProyectos() - End If - - If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE() + End If + + 'Ventas no timbradas por centro de costo + If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto() + + 'Reporte facaturas pendientes por autorizar Oscar 2016-07-06 + If UsuarioActual.TienePermisoProceso(158) Then + RegistraScript("$( document ).ready(function() { AbrirVentana('/Compras/PopUpFacturasPendientesAutorizar.aspx');});", "repFacturas") + End If + + If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE() If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE() - Dim EsDEV = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString.Contains("Desarrollo2017") + Dim EsDEV = Not UsuarioActual.Empresa.FacturaProduccion If Not EsDEV Then - If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100) Then MuestraInconsistencias() '100 - End If - - 'Ventas no timbradas por centro de costo - If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto() - - - 'Reporte facaturas pendientes por autorizar Oscar 2016-07-06 - If UsuarioActual.TienePermisoProceso(158) Then - RegistraScript("$( document ).ready(function() { AbrirVentana('/Compras/PopUpFacturasPendientesAutorizar.aspx');});", "repFacturas") + If UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100) Then MuestraInconsistencias() '100 End If 'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 3b705d02a..df303871d 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -113,7 +113,6 @@
    - diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx.vb b/Inventarios/PaquetesArmadoDesarmado.aspx.vb index 40fa29776..b6eff1c35 100644 --- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb +++ b/Inventarios/PaquetesArmadoDesarmado.aspx.vb @@ -301,10 +301,11 @@ Partial Class Inventarios_PaquetesArmadoDesarmado Dim CveUMTemp = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPaqueteDesarmado.SelectedValue.ToEntero).FiltroPrimeroValor("CveUM").ToEntero CveVendedor = If(RowApartadosDesarmado.Visible, DdlVendedorDesarmado.SelectedValue.ToEntero, -1) CveCliente = If(RowClienteDesarmado.Visible, DdlClienteDesarmado.SelectedValue.ToEntero, -1) + Dim FechaFin As String = TxtFechaDesarmado.Text.ToDateTime.ToString("yyyy/MM/dd 23:59") Dim ObjInventarios As New ClsInventarios - Dim Existencia = ObjInventarios.GetExistenciasPS(DdlPaqueteDesarmado.SelectedValue.ToEntero, CveUMTemp, UsuarioActual.CveEmpresa, DdlAlmacenDesarmado.SelectedValue.ToEntero, FechaMovto:=TxtFechaDesarmado.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) - Dim CostoPromedio = ObjInventarios.GetCostoPS(DdlPaqueteDesarmado.SelectedValue.ToEntero, TxtCantidadDesarmado.Text.ToDouble, DdlAlmacenDesarmado.SelectedValue.ToEntero, "-1", TxtFechaDesarmado.Text.ToDate) + Dim Existencia = ObjInventarios.GetExistenciasPS(DdlPaqueteDesarmado.SelectedValue.ToEntero, CveUMTemp, UsuarioActual.CveEmpresa, DdlAlmacenDesarmado.SelectedValue.ToEntero, FechaMovto:=FechaFin, CveVendedor:=CveVendedor, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente)) + Dim CostoPromedio = ObjInventarios.GetCostoPS(DdlPaqueteDesarmado.SelectedValue.ToEntero, TxtCantidadDesarmado.Text.ToDouble, DdlAlmacenDesarmado.SelectedValue.ToEntero, "-1", FechaFin.ToDate, CveTipoAlmacen:=-1) ObjInventarios.Dispose() If Existencia - TxtCantidadDesarmado.Text.ToDouble < 0 Then diff --git a/Inventarios/RecepcionEntrega.aspx b/Inventarios/RecepcionEntrega.aspx index 43992542a..e6bf45a69 100644 --- a/Inventarios/RecepcionEntrega.aspx +++ b/Inventarios/RecepcionEntrega.aspx @@ -336,7 +336,7 @@
    Información: - +
    diff --git a/Inventarios/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb index 1ab6dbd11..d2251c4a9 100644 --- a/Inventarios/RecepcionEntrega.aspx.vb +++ b/Inventarios/RecepcionEntrega.aspx.vb @@ -2261,10 +2261,38 @@ Partial Class Inventarios_RecepcionEntrega End If End If + 'QUEMAR REMISIONES + If Not ErrorMovInv And EsDevolucionVenta = 1 And TipoDocto = "Ing" Then + Dim DtDevRem As New DataTable + + 'CARGA REMISIONES DE LA VENTA DEVUELTA + If ObjInventario.GetDevolucionRemisionesFacturadas(CveVentaSurtir) Then + DtDevRem = ObjInventario.DtResultados.FiltraParametros("CantidadAlmacen = 0") + Else + ErrorMovInv = True + End If + + If Not ErrorMovInv Then + If DtDevRem.Rows.Count > 0 Then + For Each DrMovtos As DataRow In DtDevRem.FiltraParametros("", "CveRem", {"CveRem"}).Rows + If Not ObjInventario.ActualizarEsDevolucionVenta(DrMovtos("CveRem").ToString.ToEntero, 2) Then + TextoError = "Ocurrió un error al hacer la devolución hacia la remision. Por favor vuelva a intentar." + ErrorMovInv = True + Exit For + End If + Next + End If + Else + TextoError = "Ocurrió un error al hacer la devolucion a remisión. Por favor vuelva a intentar." + ErrorMovInv = True + End If + + End If + 'QUEMA DEVOLUCION | QUEMA = LA QUITA DE PENDIENTE POR RECIBIR (DEVOLVER) If Not ErrorMovInv And EsDevolucionVenta = 1 Then If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveVentaSurtir) Then - TextoError = "Ocurrió un error al hacer la devolucion. Por favor vuelva a intentar." + TextoError = "Ocurrió un error al hacer la devolución. Por favor vuelva a intentar." ErrorMovInv = True End If End If diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index 10c7f1c90..ba194c182 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -105,7 +105,7 @@
    - Entrada + Entrada Salida
    diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 7fe120eaa..381d6ef3c 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1066,10 +1066,10 @@ Partial Class Inventarios_RecepcionUsados For Each Dr As DataRow In DtMovimientos.Rows - If CveConcepto = 2 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then - ImporteConcepto = Dr("PU").ToString.ToDouble * GlobalTipoCambio(TxtFecha.Text.ToDate) - Else - ImporteConcepto = Dr("PU").ToString.ToDouble + If CveConcepto = 42 AndAlso DdlMoneda.SelectedValue.ToEntero = 2 Then + ImporteConcepto = Dr("PU").ToString.ToDouble * GlobalTipoCambio(TxtFecha.Text.ToDate) + Else + ImporteConcepto = Dr("PU").ToString.ToDouble End If If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, ImporteConcepto, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString, Lote:=Dr("Lote").ToString, Batch:=Dr("Batch").ToString, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then @@ -1083,10 +1083,10 @@ Partial Class Inventarios_RecepcionUsados ErrorMovInv = True Exit For End If - 'si es selectedvalue = 2, es entrada ,3 -salida - Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 2, 1, 2) + 'si es selectedvalue = 42, es entrada ,3 -salida + Dim CveConceptoUsados As Integer = If(RBLOpcion.SelectedValue.ToEntero = 42, 1, 2) - If RBLOpcion.SelectedValue.ToEntero = 2 AndAlso EsDistribuidor Then + If RBLOpcion.SelectedValue.ToEntero = 42 AndAlso EsDistribuidor Then If Not ObjAcum.DistribuidorMovtosAdd(DdlClientes.SelectedValue.ToEntero, Dr("Cantidad").ToString.ToEntero(), Dr("CveTamaño").ToString.ToEntero, CveConceptoUsados, CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, Dr("Observaciones").ToString, CveMovimiento:=CveMovimiento) Then diff --git a/Nomina/Aguinaldo.aspx b/Nomina/Aguinaldo.aspx index 8d90b33d2..888b07b2c 100644 --- a/Nomina/Aguinaldo.aspx +++ b/Nomina/Aguinaldo.aspx @@ -1,19 +1,118 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Aguinaldo.aspx.vb" Inherits="Nomina_Aguinaldo" %> +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Aguinaldo.aspx.cs" Inherits="Nomina_Aguinaldo" %> - + - + - + + + Aguinaldo - + - + - + - + + + + +
    +
    +
    +
    + +
    + +
    + + +
    + + + + +
    + +
    +
    +
    + + +
    +
    +
    +
    +
    +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + <%-- + + + + + + + + + + + + + + --%> + + + + +     - + diff --git a/Nomina/Aguinaldo.aspx.cs b/Nomina/Aguinaldo.aspx.cs new file mode 100644 index 000000000..985f32a52 --- /dev/null +++ b/Nomina/Aguinaldo.aspx.cs @@ -0,0 +1,71 @@ +using System; +using System.Collections.Generic; +using System.Data; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; +using Extensiones; + +public partial class Nomina_Aguinaldo : ClsPaginas +{ + #region Propiedades + private DataTable DTAguinaldos + { + get + { + return (DataTable)ViewState["DTAguinaldos"]; + } + set + { + ViewState["DTAguinaldos"] = value; + } + } + #endregion + protected void Page_Load(object sender, EventArgs e) + { + if (!IsPostBack) + { + using (ClsNominas objnom = new ClsNominas()) + { + + objnom.GetEjercicios(UsuarioActual.CveEmpresa); + DdlEjercicios.DataSource = objnom.DtResultados; + } + DdlEjercicios.DataBind(); + + DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo.FiltraParametros("Estatus = 'Activo'"); + DdlTipoPeriodo.DataBind(); + DdlTipoPeriodo.Items.Insert(0, new ListItem("Seleccione", "-1")); + if (DdlTipoPeriodo.Items.Count > 0) + { + DdlTipoPeriodo.SelectedIndex = 0; + } + } + + } + + protected void BtnCalcular_Click(object sender, EventArgs e) + { + + int ejercicio = DdlEjercicios.SelectedValue.ToEntero(); + int CveTipoPeriodo = DdlTipoPeriodo.SelectedValue.ToEntero(); + int CvePeriodo = -1; + + using (ClsNominas objnom = new ClsNominas()) + { + objnom.GetCalculoAguinaldo(ejercicio, UsuarioActual.CveEmpresa, 0, CveTipoPeriodo, CvePeriodo); + DTAguinaldos = objnom.DtResultados; + GVCalcularAguinaldo.DataSource = DTAguinaldos; + } + + GVCalcularAguinaldo.DataBind(); + LnkAutorizarModal.Visible = true; + upDatosPA_N.Update(); + } + + protected void LnkAutorizarModal_Click(object sender, EventArgs e) + { + + } +} \ No newline at end of file diff --git a/Nomina/Aguinaldo.aspx.vb b/Nomina/Aguinaldo.aspx.vb deleted file mode 100644 index e275a58f8..000000000 --- a/Nomina/Aguinaldo.aspx.vb +++ /dev/null @@ -1,5 +0,0 @@ - -Partial Class Nomina_Aguinaldo - Inherits ClsPaginas - -End Class diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index 44af81510..1391076fe 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -190,7 +190,7 @@
    - +
    diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index a07420312..6b451579c 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -68,15 +68,15 @@
  • Cargar Nomina
    • -
  • +
  • Tablas
    • - -
  • - Lista de Raya -
    • + +
  • + Lista de Raya +
    • @@ -782,7 +782,157 @@ + + +
    +
    +
    +
    +
    + + Movimientos +
    +
    + +
    + +
    +
    + Agregar +
    +
    +
    +
    + + + + + + + + + + +
    +
    +
    +
    + +
    +
    + + + +
    +
    + +
    +
    +
    + +
    + + + +
    +
    +
    +
    + + + + + + +
    +
    +
    +
    + + +
    +
    +
    +
    + + + + + + + +
    +
    +
    +
    +
    +
    + + + +
    +
    + +
    + + + +
    +     + +
    + + + +
    +     + +
    +
    + + + + + + + +
    + +
    +
    + +
    + +
    Activo?
    +
    +
    +
    + +
    + Agregar + Actualizar +
    +
    +     + +
    +
    +     +     @@ -810,7 +960,7 @@
    - + @@ -820,18 +970,18 @@ - + - - + + - + @@ -851,7 +1001,7 @@ - + @@ -861,7 +1011,7 @@ - + @@ -899,7 +1049,7 @@
    -<%-- -recuerda Solo editar de las tercer fila en adelante.
    + <%-- -recuerda Solo editar de las tercer fila en adelante.
    -No se debe editar el nombre de la hoja 'Nomina'.
    -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.
    -si desea agregar un empleado que no se encuentre en la lista solo debe de ingresar fila y el codigo del empleado.
    diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 8bdc089db..edfb71fbc 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -93,6 +93,17 @@ public partial class Nomina_Nomina2 : ClsPaginas set { ViewState["CvePeriodoSeleccionado"] = value; } } + + protected int CcveMovtoPermanente + { + get + { + if (ViewState["CcveMovtoPermanente"] == null) { return 0; } + else { return ViewState["CcveMovtoPermanente"].ToString().ToEntero(); } + } + + set { ViewState["CcveMovtoPermanente"] = value; } + } #endregion protected void Page_Load(object sender, EventArgs e) { @@ -912,6 +923,8 @@ public partial class Nomina_Nomina2 : ClsPaginas LblEmpleado.Text = Nombre; TabPersonal.ActiveTabIndex = 0; mostrarConceptos(); + pnlAddupMovto.Visible = false; + CargaMovtoPermanente(); RegistraScript("$('#ModalConceptos').modal();"); } private void mostrarConceptos() @@ -1461,7 +1474,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string strFechaFin = ""; string strTipo = ""; string strPeriodoNum = ""; - string strUbicacion = string.Format ("{0}, {1}, {2}, {3}",UsuarioActual.Empresa.Direccion, UsuarioActual.Empresa.Colonia, UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado ); + string strUbicacion = string.Format("{0}, {1}, {2}, {3}", UsuarioActual.Empresa.Direccion, UsuarioActual.Empresa.Colonia, UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado); string strRegPatImss = ""; string strRFC = UsuarioActual.Empresa.RFC; string strfecha = DateTime.Now.ToString("dd/MMM/yyyy", System.Globalization.CultureInfo.CreateSpecificCulture("es-MX")); @@ -1472,11 +1485,11 @@ public partial class Nomina_Nomina2 : ClsPaginas DataRow rperiodo = dtPeriodos.FiltroPrimero(string.Format("CvePeriodo = {0}", CvePeriodo)); if (rperiodo != null) { - strFechaInicio =string.Format("{0:dd/MM/yyyy}", rperiodo["FechaInicio"]); + strFechaInicio = string.Format("{0:dd/MM/yyyy}", rperiodo["FechaInicio"]); strFechaFin = string.Format("{0:dd/MM/yyyy}", rperiodo["FechaFin"]); strPeriodoNum = rperiodo["Numero"].ToString(); - strTipo = DdlTipoPeriodo.SelectedItem.Text ; + strTipo = DdlTipoPeriodo.SelectedItem.Text; } listaTags.Add(new TagsDocumentos("[Empresa]", strEmpresa)); listaTags.Add(new TagsDocumentos("[FechaInicio]", strFechaInicio)); @@ -1526,7 +1539,7 @@ public partial class Nomina_Nomina2 : ClsPaginas string SalarioDiariop = ""; string FechaIngreso = "", Nombre = "", DiasLaborados = "";*/ - paragraphh = new GemBox.Document.Paragraph(document,string.Format("{1} : {0}", drow2["Nombre"].ToString(), drow2["Codigo"].ToString())); cell.Blocks.Add(paragraphh); + paragraphh = new GemBox.Document.Paragraph(document, string.Format("{1} : {0}", drow2["Nombre"].ToString(), drow2["Codigo"].ToString())); cell.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Style = styilostrong; paragraphh = new GemBox.Document.Paragraph(document, string.Format("Fecha Ingr:{0:dd/MM/yyyy}, S.D.:{1:N2} ", drow2["FechaIngreso"], drow2["SalarioDiario"])); cell.Blocks.Add(paragraphh); @@ -1625,7 +1638,7 @@ public partial class Nomina_Nomina2 : ClsPaginas CveConcepto = rowconcept["CveConcepto"].ToString().ToEntero(); importe = string.Format("${0:N2}", rowconcept["Importe"]); valor = string.Format("{0:#,###.##}", rowconcept["Valor"]); - + Concepto = ""; rowconcept = dtConceptos.FiltroPrimero(string.Format("CveConcepto={0}", CveConcepto)); @@ -1668,7 +1681,7 @@ public partial class Nomina_Nomina2 : ClsPaginas - CveConcepto = 0; Concepto = ""; importe = ""; Codigo = "";valor = ""; + CveConcepto = 0; Concepto = ""; importe = ""; Codigo = ""; valor = ""; rowconcept = dtempleadosConceptos.FiltroPrimero(string.Format("CvePersonal={0} AND Tipo =2 AND Fila ={1}", CvePersonal, cindex)); @@ -2122,7 +2135,7 @@ public partial class Nomina_Nomina2 : ClsPaginas paragraphh = new GemBox.Document.Paragraph(document, string.Format("{0:N0}", dtempleados.COUNT("CvePersonal", string.Format("CveDepartamento={0}", CveDepartamento)))); cellx.Blocks.Add(paragraphh); paragraphh.ParagraphFormat.Alignment = GemBox.Document.HorizontalAlignment.Right; paragraphh.ParagraphFormat.Style = styilo; } - + { cellx = new GemBox.Document.Tables.TableCell(document); rowx.Cells.Add(cellx); cellx.CellFormat.PreferredWidth = new GemBox.Document.Tables.TableWidth(3, GemBox.Document.Tables.TableWidthUnit.Percentage); @@ -2556,7 +2569,7 @@ public partial class Nomina_Nomina2 : ClsPaginas //basura para espacio { rowx = new GemBox.Document.Tables.TableRow(document); - tconeptos.Rows.Add(rowx); + tconeptos.Rows.Add(rowx); { cellx = new GemBox.Document.Tables.TableCell(document); rowx.Cells.Add(cellx); cellx.CellFormat.PreferredWidth = new GemBox.Document.Tables.TableWidth(3, GemBox.Document.Tables.TableWidthUnit.Percentage); @@ -2852,4 +2865,164 @@ public partial class Nomina_Nomina2 : ClsPaginas { ImprimirReporte(); } + #region Movtos Permanentes + + protected void CargaTipoConcepto() + { + //DdlTipo.Items.Insert(0, new ListItem("Percepciones", "P")); + //DdlTipo.Items.Insert(1, new ListItem("Deducciones", "D")); + //DdlTipo.Items.Insert(2, new ListItem("Obligaciones", "O")); + //DdlTipo.SelectedValueExist("-1"); + CargaConcepto(); + } + + protected void CargaConcepto() + { + DdlConcepto.Items.Clear(); + if (DdlTipo.SelectedValue == "-1") + { + DdlConcepto.DataSource = get_GlobalDTNomConceptos(UsuarioActual.CveEmpresa); + } + else + { + DdlConcepto.DataSource = get_GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("Tipo ='{0}'", DdlTipo.SelectedValue)); + } + DdlConcepto.DataBind(); + DdlConcepto.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlConcepto.SelectedValueExist("-1"); + } + private void CargaMovtoPermanente() + { + + using (ClsNominas ObjMovt = new ClsNominas()) + { + ObjMovt.GetMovtoPermanente(UsuarioActual.CveEmpresa, SRCvePersonal); + GVMovtoPermanente.DataSource = ObjMovt.DtResultados; + + } + GVMovtoPermanente.DataBind(); + UpMovtosPermanentes.Update(); + } + protected void DdlTipo_SelectedIndexChanged(object sender, EventArgs e) + { + CargaConcepto(); + } + + protected void LnkAddMovtoPermanente_Click(object sender, EventArgs e) + { + CargaConcepto(); + DdlTipoDescto_SelectedIndexChanged(null, null); + pnlAddupMovto.Visible = true; + LnkAddMovto.Visible = true; + LnkUpMovto.Visible = false; + LtlMovtoPermanenteaddup.Text = "Agregar Movimiento"; + + TxtDescripcion.Text = ""; + TxtValor.Text = ""; + TxtVecesAplicar.Text = ""; + TxtMontoLimite.Text = ""; + TxtFechaAplicacion.Text = ""; + ChkEstatus.Visible = true; + } + + protected void LnkAddMovto_Click(object sender, EventArgs e) + { + int cveConcepto = DdlConcepto.SelectedValue.ToEntero(); + string descripcion = TxtDescripcion.Text; + int tipoDescuento = DdlTipoDescto.SelectedValue.ToEntero(); + double valor = TxtValor.Text.ToDouble(); + int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); + decimal montoLimite = TxtMontoLimite.Text.ToDecimal(); + string fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd"); + bool estatus = ChkEstatus.Checked; + bool Continuar; + using (ClsNominas ObjMovt = new ClsNominas()) + { + Continuar = ObjMovt.AddMovtoPermanente(cveConcepto, SRCvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus); + + } + if (Continuar) + { + this.RegistraScript("$('#DModalMovtoPermanente').modal('hide');"); + CargaMovtoPermanente(); + UpMovtosPermanentes.Update(); + this.Alert("El Movto_Permanente Se ha agregado"); + } + + } + + protected void LnkUpMovto_Click(object sender, EventArgs e) + { + int cveConcepto = DdlConcepto.SelectedValue.ToEntero(); + string descripcion = TxtDescripcion.Text; + int tipoDescuento = DdlTipoDescto.SelectedValue.ToEntero(); + double valor = TxtValor.Text.ToDouble(); + int vecesAplicar = TxtVecesAplicar.Text.ToEntero(); + decimal montoLimite = TxtMontoLimite.Text.ToDecimal(); + string fechaInicioAplicacion = TxtFechaAplicacion.Text.ToDate().ToString("yyyy/MM/dd"); + bool estatus = ChkEstatus.Checked; + bool Continuar; + using (ClsNominas ObjMovt = new ClsNominas()) + { + Continuar = ObjMovt.UpMovtoPermanente(CcveMovtoPermanente, cveConcepto, SRCvePersonal, descripcion, tipoDescuento, valor, vecesAplicar, montoLimite, fechaInicioAplicacion, estatus); + + } + if (Continuar) + { + this.RegistraScript("$('#DModalMovtoPermanente').modal('hide');"); + CargaMovtoPermanente(); + UpMovtosPermanentes.Update(); + this.Alert("El Movto_Permanente Se ha agregado"); + } + + } + + protected void DdlTipoDescto_SelectedIndexChanged(object sender, EventArgs e) + { + pnlMonto.Visible = DdlTipoDescto.SelectedValue.ToEntero() > 2; + pnlVecesAplicar.Visible = DdlTipoDescto.SelectedValue.ToEntero() < 3; + } + + protected void LnkEditarMovtoPermanente_Click(object sender, EventArgs e) + { + + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + CcveMovtoPermanente = gvRow.DataKey("CveMovtoPermanente").ToEntero(); + int cveConcepto = gvRow.DataKey("CveConcepto").ToEntero(); + int cvePersonal = gvRow.DataKey("CvePersonal").ToEntero(); + string descripcion = gvRow.DataKey("Descripcion"); + int tipoDescuento = gvRow.DataKey("TipoDescuento").ToEntero(); + double valor = gvRow.DataKey("Valor").ToDouble(); + int vecesAplicar = gvRow.DataKey("VecesAplicar").ToEntero(); + decimal montoLimite = gvRow.DataKey("MontoLimite").ToDecimal(); + DateTime fechaInicioAplicacion = gvRow.DataKey("FechaInicioAplicacion").ToDate(); + bool estatus = gvRow.DataKey("Estatus") == "1" || gvRow.DataKey("Estatus").ToUpper() == "TRUE"; + DateTime fechaRegistro = gvRow.DataKey("FechaRegistro").ToDateTime(); + string tipo = "P"; + DataRow drow = get_GlobalDTNomConceptos(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("Tipo ='{0}'", cveConcepto)); + if (drow != null) + { + tipo = drow["Tipo"].ToString(); + DdlTipo.SelectedValueExist(tipo); + DdlTipo_SelectedIndexChanged(null, null); + } + DdlConcepto.SelectedValueExist(cveConcepto); + TxtDescripcion.Text = descripcion.ToString(); + DdlTipoDescto.SelectedValueExist(tipoDescuento.ToString()); + DdlTipoDescto_SelectedIndexChanged(null, null); + + TxtValor.Text = valor.ToString(); + TxtVecesAplicar.Text = vecesAplicar.ToString(); + TxtMontoLimite.Text = montoLimite.ToString(); + TxtFechaAplicacion.Text = $"{fechaInicioAplicacion:dd/MM/yyyy}"; + ChkEstatus.Checked = estatus; + this.RegistraScript("$('#DModalMovtoPermanente').modal();"); + + + pnlAddupMovto.Visible = true; + LnkAddMovto.Visible = false; + LnkUpMovto.Visible = true; + UpMovtosPermanentes.Update(); + } + #endregion } \ No newline at end of file diff --git a/Nomina/ReportePTU.aspx b/Nomina/ReportePTU.aspx index 23a62e38f..8419a4969 100644 --- a/Nomina/ReportePTU.aspx +++ b/Nomina/ReportePTU.aspx @@ -14,6 +14,7 @@ + Reparto de Utilidades diff --git a/Nomina/ReportePTU.aspx.vb b/Nomina/ReportePTU.aspx.vb index b79a05002..05259ef9d 100644 --- a/Nomina/ReportePTU.aspx.vb +++ b/Nomina/ReportePTU.aspx.vb @@ -59,10 +59,10 @@ Partial Class Nomina_ReportePTU utilimporte = TxtPA_Nimporte.Text.ToDouble() utilimporteAnt = TxtPA_NimporteA.Text.ToDouble() - Dim objnom As New ClsNominas() - objnom.GetCalculoUtilidades(ejercicio, UsuarioActual.CveEmpresa, utilimporte, utilimporteAnt) - DTUtilidades = objnom.DtResultados - objnom.Dispose() + Using objnom As New ClsNominas() + objnom.GetCalculoUtilidades(ejercicio, UsuarioActual.CveEmpresa, utilimporte, utilimporteAnt) + DTUtilidades = objnom.DtResultados + End Using cargaEjercicio(DTUtilidades) LnkAutorizarModal.Visible = True @@ -155,7 +155,7 @@ Partial Class Nomina_ReportePTU If Not IsNothing(rowc) Then CveConcepto = rowc("CveConcepto").ToString().ToEntero() Else - CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0) + CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0) End If If CveConcepto < 1 Then continuar = False diff --git a/RH/CatAsistenciasInasistencias.aspx b/RH/CatAsistenciasInasistencias.aspx index dc78abae3..7f7faabcb 100644 --- a/RH/CatAsistenciasInasistencias.aspx +++ b/RH/CatAsistenciasInasistencias.aspx @@ -11,7 +11,7 @@ Catálogo de Tipos de Asistencias/Inasistencias - +
  • @@ -21,11 +21,9 @@ - + - - @@ -33,7 +31,7 @@ - + @@ -58,9 +56,38 @@ - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + a @@ -80,7 +107,7 @@ - + <%----%> @@ -121,21 +148,48 @@ -
    • -
    -
    -   - - +
    +
    +
    +
    + +
    +
    + +
    +
    + +
    +
    +
    + +
    -
    -
    -   - - +
    +
    +
    + +
    +
    +
    + +
    +
    +
    + +
    - +
    +
    +
    +
    + +
    +

    diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb index 4258cd0e4..80fc4d254 100644 --- a/RH/CatAsistenciasInasistencias.aspx.vb +++ b/RH/CatAsistenciasInasistencias.aspx.vb @@ -6,7 +6,7 @@ Imports System.Linq Imports Extensiones Partial Class RH_CatAsistenciasInasistencias - Inherits ClsPaginas + Inherits ClsPaginas #Region " PROPIEDADES " Public Property PuedeEditar As Boolean @@ -63,7 +63,13 @@ Partial Class RH_CatAsistenciasInasistencias BtnEditarTiposDModal.Visible = False BtnAgregarTiposDModal.Visible = True CheckActiveSection.Visible = False - saltoDeLinea.Visible = False + AplicaNoAplica.Checked = False + AplicaFalta.Checked = False + AplicaVacacion.Checked = False + AplicaIncapacidad.Checked = False + AplicaRetardo.Checked = False + AplicaAguinaldo.Checked = False + AplicaUtilidades.Checked = False TipoTxt.Text = "" UpModalTiposD.Update() RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) @@ -72,7 +78,16 @@ Partial Class RH_CatAsistenciasInasistencias Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal" Dim ObjAsistenciasInasistencias As New ClsRH - If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, Not AplicaNoAplica.Checked, AplicaNoAplica.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Dim chkAplicaNoAplica As Boolean = Not AplicaNoAplica.Checked + Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked + Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked + Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked + Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked + Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked + + + If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaNoAplica, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, +chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then TipoTxt.Text = "" Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion) UpTitulos.Update() @@ -100,11 +115,18 @@ Partial Class RH_CatAsistenciasInasistencias BtnAgregarTiposDModal.Visible = False BtnEditarTiposDModal.Visible = True CheckActiveSection.Visible = True - saltoDeLinea.Visible = True - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar TipoTxt.Text = GvRow.DataKey("Tipo") AplicaNoAplica.Checked = If(GvRow.DataKey("AplicaAsistencia") = "Aplica", True, False) + + + AplicaFalta.Checked = If(GvRow.DataKey("AplicaFalta") = "Aplica", True, False) + AplicaVacacion.Checked = If(GvRow.DataKey("AplicaVacacion") = "Aplica", True, False) + AplicaIncapacidad.Checked = If(GvRow.DataKey("AplicaIncapacidad") = "Aplica", True, False) + AplicaRetardo.Checked = If(GvRow.DataKey("AplicaRetardo") = "Aplica", True, False) + AplicaAguinaldo.Checked = If(GvRow.DataKey("AplicaAguinaldo") = "Aplica", True, False) + AplicaUtilidades.Checked = If(GvRow.DataKey("AplicaUtilidades") = "Aplica", True, False) + ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) CveTipoAsisAEditar = Convert.ToInt32(GvRow.DataKey("CveAsistenciasInasistencias")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" @@ -124,7 +146,17 @@ Partial Class RH_CatAsistenciasInasistencias Dim AplicaAsistencia As Boolean = AplicaNoAplica.Checked Dim CveAsistenciasInasistencias As Integer = CveTipoAsisAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing" - If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias) Then + + + Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked + Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked + Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked + Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked + Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked + + + If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias, + chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then GvDatos.EditIndex = -1 ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index e5afac7e9..f1a40e0eb 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -34,7 +34,7 @@
    - +
    @@ -303,7 +303,7 @@
    - +
    diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 1969944e1..44eda61c6 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -73,18 +73,27 @@ Partial Class Ventas_ActualizarPrecios DDlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) End Sub - Public Sub CargaPreciosLista() + Public Sub CargaPreciosLista() + + DdlPrecioLista.ITEMS.CLEAR Dim ObjVta As New ClsVentas If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy() DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy() End If - ObjVta.Dispose() - + ObjVta.Dispose() + + DdlPrecioLista.DataBind() - DdlPrecioListaCarga.DataBind() + DdlPrecioListaCarga.DataBind() + + DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1")) + If UsuarioActual.CveEmpresa.Contiene(1, 140) Then + DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2")) + DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2")) + End If + - DdlPrecioListaCarga.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub Public Sub CargaPS() @@ -193,7 +202,7 @@ Partial Class Ventas_ActualizarPrecios ObjPS.Dispose() BtnConsultar_Click(Nothing, Nothing) - RegistraScript("$('#divAgregar').modal('hide')") + RegistraScript("$('#divAgregar').modal('hide')") TxtImporte.Text = "" TxtPrecio.Text = "" TxtPorcentaje.Text = "" @@ -271,7 +280,7 @@ Partial Class Ventas_ActualizarPrecios .PS = row.DataKey("PS"), .Precio = row.FCTextBox("TxtPrecio").Text.ToDecimal() }).QueryToDataTable(True) - If DtExcel.Rows.Count < 2 Then + If DtExcel.Rows.Count < 1 Then Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -350,7 +359,7 @@ Partial Class Ventas_ActualizarPrecios End Try If Not ErrorArchivo AndAlso dt IsNot Nothing Then - If DdlPrecioListaCarga.SelectedValue.ToEntero() <= 0 Then + If DdlPrecioListaCarga.SelectedValue.ToEntero() = -1 Then Alert("Debe Seleccionar la lista de precios a cargar. Favor de corregirlo", TipoMensaje.MsgError) Exit Sub End If @@ -380,16 +389,26 @@ Partial Class Ventas_ActualizarPrecios Dim Correcto As Boolean = False Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)) Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero() + Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal() + Dim Porcentaje As Decimal = -1 - If CvePS > 0 AndAlso CvePrecioLista > 0 Then - Dim Porcentaje As Decimal = -1 - Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal() + If CvePS > 0 AndAlso CvePrecioLista > 0 Then + + Correcto = ObjPS.UpdatePSPreciosLista(PrecioNuevo, CvePrecioLista, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, True) If Correcto Then RowsCargados += 1 End If - Else - Correcto = False + Else + If CvePS > 0 AndAlso CvePrecioLista = -2 Then + Correcto = ObjPS.UpdatePSPrecios(PrecioNuevo, CvePrecioLista, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, True) + If Correcto Then + RowsCargados += 1 + End If + Else + Correcto = False + End If + End If If Not Correcto Then ProductosNoCargados.AppendFormat("{0},", row("Producto / Servicio").ToString()) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 82bfc6d9f..f2ed1bd58 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -1071,7 +1071,7 @@ Partial Class PV CargaSucursales() CargaClasificaciones() CargaPS(-1, DdlPS) - CargaPS(-1, DdlPSAjuste) + CargaPS(-1, DdlPSAjuste, AplicaAlmacen:=False) CargaEmpresa() CreaDTVentas() CargaMetodosPago() @@ -1866,7 +1866,7 @@ Partial Class PV End If DdlClasificacion.DataBind() End Sub - Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost) + Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaAlmacen As Boolean = True) Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString = "1") If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then Objeto.ddl.Items.Clear() @@ -1877,7 +1877,11 @@ Partial Class PV Else Objeto.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue) Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString) - Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") + If AplicaAlmacen Then + Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") + Else + Objeto.ddlWS.Attributes.Add("data-pagina", "-1") + End If Objeto.ddlWS.Attributes.Add("data-Estatus", "1") End If End Sub @@ -1988,8 +1992,6 @@ Partial Class PV CalculaTotalesVenta() Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) - 'JJMQ 20160506: Se agrego para la validacion de pago de contado. - 'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "") UpContado.Update() End Sub @@ -3071,7 +3073,7 @@ Partial Class PV TmpDT.Columns.Add("EsCargo", GetType(Boolean)) TmpDT.Columns.Add("PUOriginal", GetType(Decimal)) - + TmpDT.Columns.Add("ConsecPSPadre", GetType(Integer)) End Sub @@ -3264,7 +3266,8 @@ Partial Class PV Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0, Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, - Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional EsCargo As Boolean = False) As Integer + Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0, Optional EsCargo As Boolean = False, + Optional ConsecPSPadre As Integer = -1) As Integer Dim Retorno As Integer = -1 If Not CvePS > 0 Then @@ -3427,6 +3430,10 @@ Partial Class PV Row("CuentaPredial") = CuentaPredial Row("EsCargo") = EsCargo + If EsCargo AndAlso ConsecPSPadre >= 0 Then + Row("ConsecPSPadre") = ConsecPSPadre + End If + If UsuarioActual.CveEmpresa = 119 Then If Not RemisionesLista.Count > 0 Then 'SI VIENE DE REMISION NO SE CONSIDERA @@ -5213,8 +5220,6 @@ Partial Class PV Exit Sub End If Try - - If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then Dim CveMarca As Integer = -1 @@ -5570,177 +5575,148 @@ Partial Class PV CalculaTotalesVenta() End Sub Private Function CalculaUsados(Consec As Integer) As List(Of Integer) - - 'If Modalidad = "U" Then - ' EliminarUsados(Consec) - 'End If + If Modalidad = "U" Then + EliminarUsados(Consec) + End If Dim ListaPScargo As New List(Of Integer) - Dim DTTamanios As New DataTable - Dim ObjAcum As New ClsAcumuladores - - If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then - - DTTamanios = ObjAcum.DtResultados - Dim DTCvePSCostos = ObjAcum.DtResultados.FiltraParametros("", "", {"CvePSCargo"}) + Dim DTTamanios As DataTable = GlobalDTAcumTamaños() + Dim DTCvePSCostos = DTTamanios.FiltraParametros("", "", {"CvePSCargo"}) - Dim CveUnidadMedidaPSA As Integer = -1 - Dim UnidadMedidaPSA As String = "Unidad" - Dim CveClacificacionPSA As Integer = -1 + Dim CveUnidadMedidaPSA As Integer = -1 + Dim UnidadMedidaPSA As String = "Unidad" + Dim CveClacificacionPSA As Integer = -1 - Dim ClacificacionPSA As String = "" + Dim ClacificacionPSA As String = "" - Dim CveSubProyectoPSA As Integer = -1 - Dim SubProyectoPSA As String = "" + Dim CveSubProyectoPSA As Integer = -1 + Dim SubProyectoPSA As String = "" - Dim PSPSA As String = "" + Dim PSPSA As String = "" - Dim DTPSTemp As New DataTable '= TmpDT.Clone + Dim DTPSTemp As New DataTable '= TmpDT.Clone - DTPSTemp.Columns.Add("Cantidad", GetType(Integer)) - DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer)) - DTPSTemp.Columns.Add("UnidadMedida", GetType(String)) - DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer)) - DTPSTemp.Columns.Add("Clacificacion", GetType(String)) - DTPSTemp.Columns.Add("CvePS", GetType(Integer)) - DTPSTemp.Columns.Add("PS", GetType(String)) - DTPSTemp.Columns.Add("PU", GetType(Decimal)) - DTPSTemp.Columns.Add("CveSubProyecto", GetType(Integer)) - DTPSTemp.Columns.Add("SubProyecto", GetType(String)) + DTPSTemp.Columns.Add("Cantidad", GetType(Integer)) + DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer)) + DTPSTemp.Columns.Add("UnidadMedida", GetType(String)) + DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer)) + DTPSTemp.Columns.Add("Clacificacion", GetType(String)) + DTPSTemp.Columns.Add("CvePS", GetType(Integer)) + DTPSTemp.Columns.Add("PS", GetType(String)) + DTPSTemp.Columns.Add("PU", GetType(Decimal)) + DTPSTemp.Columns.Add("CveSubProyecto", GetType(Integer)) + DTPSTemp.Columns.Add("SubProyecto", GetType(String)) + DTPSTemp.Columns.Add("ConsecPSPadre", GetType(Integer)) - Dim ObjProductosServicios As New ClsProductosServicios() - For Each DrowPartidas As DataRow In TmpDT.Select($"Consec = {Consec}") + Dim ObjProductosServicios As New ClsProductosServicios() + For Each DrowPartidas As DataRow In TmpDT.Select($"Consec = {Consec}") - Dim CveTamanioTemp As Integer = DrowPartidas("CveTamaño").ToString.ToEntero + Dim CveTamanioTemp As Integer = DrowPartidas("CveTamaño").ToString.ToEntero - If CveTamanioTemp > 0 Then + If CveTamanioTemp > 0 Then - Dim DTTamanioTemp As New DataTable - Dim CvePsTemp As Integer = DTTamanios.FiltraParametros($"CveTamaño = { CveTamanioTemp } ").Rows(0)("CvePSCargo").ToString.ToEntero + Dim DTTamanioTemp As New DataTable + Dim CvePsTemp As Integer = DTTamanios.FiltraParametros($"CveTamaño = { CveTamanioTemp } ").Rows(0)("CvePSCargo").ToString.ToEntero - CveSubProyectoPSA = DrowPartidas("CveSubProyecto").ToString.ToEntero - SubProyectoPSA = DrowPartidas("SubProyecto").ToString - - If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then - CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida - CveClacificacionPSA = ObjProductosServicios.CveClasificacion - UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida") - PSPSA = ObjProductosServicios.PS - End If - - - If UsuarioActual.Empresa.UsaAC Then - ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") - Else - ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion") - End If - - Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal - - - If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then - - For Each dRowUpdate As DataRow In DTPSTemp.Rows - - If (dRowUpdate("CvePS").ToString.ToEntero = CvePsTemp) Then - dRowUpdate("Cantidad") = dRowUpdate("Cantidad").ToString.ToDecimal + DrowPartidas("Cantidad").ToString.ToDecimal - dRowUpdate("PU") = Cargo ' dRowUpdate("Total").ToString.ToDecimal + ImporteCargo - End If - Next - - DTPSTemp.AcceptChanges() - - Else - Dim dRowNuevo As DataRow = DTPSTemp.NewRow - - dRowNuevo("Cantidad") = DrowPartidas("Cantidad").ToString.ToDecimal - dRowNuevo("PU") = Cargo - dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA - dRowNuevo("UnidadMedida") = UnidadMedidaPSA - dRowNuevo("CveClacificacion") = CveClacificacionPSA - dRowNuevo("Clacificacion") = ClacificacionPSA - dRowNuevo("CvePS") = CvePsTemp - dRowNuevo("PS") = PSPSA - - dRowNuevo("CveSubProyecto") = DrowPartidas("CveSubProyecto").ToString.ToEntero - dRowNuevo("SubProyecto") = DrowPartidas("SubProyecto").ToString - - DTPSTemp.Rows.Add(dRowNuevo) - DTPSTemp.AcceptChanges() - End If + CveSubProyectoPSA = DrowPartidas("CveSubProyecto").ToString.ToEntero + SubProyectoPSA = DrowPartidas("SubProyecto").ToString + If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then + CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida + CveClacificacionPSA = ObjProductosServicios.CveClasificacion + UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida") + PSPSA = ObjProductosServicios.PS + End If + + + If UsuarioActual.Empresa.UsaAC Then + ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") + Else + ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion") + End If + + Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp }").ToDecimal + + + If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then + + For Each dRowUpdate As DataRow In DTPSTemp.Rows + + If (dRowUpdate("CvePS").ToString.ToEntero = CvePsTemp) Then + dRowUpdate("Cantidad") = dRowUpdate("Cantidad").ToString.ToDecimal + DrowPartidas("Cantidad").ToString.ToDecimal + dRowUpdate("PU") = Cargo ' dRowUpdate("Total").ToString.ToDecimal + ImporteCargo + End If + Next + + DTPSTemp.AcceptChanges() + + Else + Dim dRowNuevo As DataRow = DTPSTemp.NewRow + + dRowNuevo("Cantidad") = DrowPartidas("Cantidad").ToString.ToDecimal + dRowNuevo("PU") = Cargo + dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA + dRowNuevo("UnidadMedida") = UnidadMedidaPSA + dRowNuevo("CveClacificacion") = CveClacificacionPSA + dRowNuevo("Clacificacion") = ClacificacionPSA + dRowNuevo("CvePS") = CvePsTemp + dRowNuevo("PS") = PSPSA + + dRowNuevo("CveSubProyecto") = DrowPartidas("CveSubProyecto").ToString.ToEntero + dRowNuevo("SubProyecto") = DrowPartidas("SubProyecto").ToString + dRowNuevo("ConsecPSPadre") = Consec + + DTPSTemp.Rows.Add(dRowNuevo) + DTPSTemp.AcceptChanges() End If - Next - ObjProductosServicios.Dispose() - Dim ModalidadBack = Modalidad - 'CAMBIA LA MODALIDAD PARA AGREGAR LOS PS CARGO - If Modalidad = "U" Then - Modalidad = "A" End If + Next + ObjProductosServicios.Dispose() - For Each drowPsTamaños As DataRow In DTPSTemp.Rows - If drowPsTamaños("PU").ToString.ToDecimal > 0 Then - Dim Concec = AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString, + Dim ModalidadBack = Modalidad + 'CAMBIA LA MODALIDAD PARA AGREGAR LOS PS CARGO + If Modalidad = "U" Then + Modalidad = "A" + End If + + For Each drowPsTamaños As DataRow In DTPSTemp.Rows + If drowPsTamaños("PU").ToString.ToDecimal > 0 Then + Dim Concec = AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString, drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero, drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero, - drowPsTamaños("SubProyecto").ToString, EsCargo:=True) - If Consec > 0 Then - ListaPScargo.Add(drowPsTamaños("CvePS").ToString.ToEntero) - End If + drowPsTamaños("SubProyecto").ToString, EsCargo:=True, ConsecPSPadre:=drowPsTamaños("ConsecPSPadre").ToString.ToEntero) + If Consec > 0 Then + ListaPScargo.Add(drowPsTamaños("CvePS").ToString.ToEntero) End If - Next + End If + Next - Modalidad = ModalidadBack - End If - ObjAcum.Dispose() + Modalidad = ModalidadBack Return ListaPScargo End Function Private Sub EliminarUsados(Consec As Integer) - Dim DTTamanios As New DataTable - Dim ObjAcum As New ClsAcumuladores + 'ELIMINAR EL USADO EXTRAS + For Each drow As DataRow In TmpDT.Select($"ConsecPSPadre ={Consec}") + drow.Delete() + Next - If ObjAcum.TamañoGet(-1, UsuarioActual.CveEmpresa) Then - - DTTamanios = ObjAcum.DtResultados - Dim DTCvePSCostos = ObjAcum.DtResultados.FiltraParametros("", "", {"CvePSCargo"}) - - If Not TmpDT.Columns.Contains("Eliminar") Then - TmpDT.Columns.Add("Eliminar", GetType(Integer)) - End If - - For Each drow As DataRow In TmpDT.FiltraParametros($"Consec ={Consec}").Rows - For Each drow2 As DataRow In DTCvePSCostos.Rows - If drow("CvePS").ToString.ToEntero = drow2("CvePSCargo").ToString.ToEntero Then - drow("Eliminar") = 1 - Exit For - End If - Next + 'ELIMINAR LOS USADOS QUE SE MANDAN A RECEPCION + For Each drow As DataRow In TmpDT.Select($"Consec ={Consec}") + For Each RowRecepcionUsados As DataRow In TmpDTRecepcionUsados.Rows + If (RowRecepcionUsados("CvePSRelacionado").ToString() = drow("CvePS").ToString()) Then + RowRecepcionUsados.Delete() + End If Next + Next - Dim TmpDTView As New DataView(TmpDT) - TmpDTView.RowFilter = "Eliminar = 1" - - For Each dRowEliminar As DataRowView In TmpDTView - For Each RowRecepcionUsados As DataRow In TmpDTRecepcionUsados.Rows - If (RowRecepcionUsados("CvePS").ToString() = dRowEliminar("CvePS").ToString()) Then - RowRecepcionUsados.Delete() - End If - Next - dRowEliminar.Delete() - Next - - TmpDT.AcceptChanges() - TmpDTRecepcionUsados.AcceptChanges() - - End If - ObjAcum.Dispose() - + TmpDT.AcceptChanges() + TmpDTRecepcionUsados.AcceptChanges() End Sub #End Region diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 8cfedd04a..ab26b65a5 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1003,8 +1003,8 @@ <%----%> - <%--0--%> @@ -1287,12 +1287,12 @@
    - +
    - @@ -5873,8 +5873,7 @@
    - - +
    @@ -6354,7 +6353,7 @@ - + <%--APLICAR REMISIONES DE NC--%>
    Descuentos. RNC.:   +