Local

AF/CatClasificacionesCaracteristicas.aspx.vb

@@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
             'Carga Globals para DT
             CargaTiposActivosFijos()
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            ''CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            'CargaCaracteristicas()
         End If
     End Sub
 
@@ -77,30 +77,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
         ObjAF.Dispose()
     End Sub
-    Private Sub CargaCaracteristicasClasificaciones()
-        Dim ObjAF As New ClsAF
-
-        If ObjAF.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            GlobalDTAFCaracteristicasClasificaciones = ObjAF.DtResultados
-            ViewState("DTCaracteristicaClasificacion") = ObjAF.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-        Else
-            Alert("Ocurrio un error al obtener las caracteristicas clasificaciones de Activos Fijos", TipoMensaje.MsgError)
-        End If
-
-        ObjAF.Dispose()
-    End Sub
-    Private Sub CargaCaracteristicas()
-        Dim ObjAF As New ClsAF
-
-        If ObjAF.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-            GlobalDTAFCaracteristicas = ObjAF.DtResultados
-        Else
-            Alert("Ocurrio un error al obtener las caracteristicas de Activos Fijos", TipoMensaje.MsgError)
-        End If
-
-        ObjAF.Dispose()
-    End Sub
-
 #Region "CLASIFICACIONES"
     Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click
         Dim ObjCaracteristicaClasificacion As New ClsAF
@@ -111,7 +87,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
             UpTitulosCL.Update()
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
 
             If ViewState("OrdenCL").ToString() <> String.Empty Then
                 CargaGrid(ViewState("OrdenCL").ToString(), 0)
@@ -126,16 +101,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
 #Region "CARGA DATOS"
     Public Sub CargaDatosCL()
-        Dim ObjCaracteristicaClasificacion As New ClsAF
-        If ObjCaracteristicaClasificacion.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCaracteristicaClasificacion") = ObjCaracteristicaClasificacion.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-            GlobalDTAFCaracteristicasClasificaciones = ObjCaracteristicaClasificacion.DtResultados
-        Else
-            Me.GvDatosCL.DataSource = Nothing
-        End If
-
-        ObjCaracteristicaClasificacion.Dispose()
-
         If ViewState("OrdenCL").ToString() <> String.Empty Then
             CargaGrid(ViewState("OrdenCL").ToString(), 0)
         Else
@@ -184,7 +149,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
             GvDatosCL.EditIndex = -1
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicasClasificaciones()
 
             Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -219,7 +184,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
             GvDatosCL.EditIndex = -1
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            'CargaCaracteristicasClasificaciones()
 
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
@@ -263,12 +228,11 @@ Partial Class AF_CatClasificacionesCaracteristicas
             TxtLongitudCA.Text = ""
             Alert("La Nueva Característica de Activo Fijo se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulosCA.Update()
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
-
 
             CargaSubTiposActivosFijos()
-            CargaCaracteristicasClasificaciones()
+            ''CargaCaracteristicasClasificaciones()
-            CargaCaracteristicas()
+            'CargaCaracteristicas()
 
             If ViewState("OrdenCA").ToString() <> String.Empty Then
                 CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -281,16 +245,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
 #Region " CARGA DATOS"
     Public Sub CargaDatosCA()
-        Dim ObjCaracteristicas As New ClsAF
-        If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados '.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
-        Else
-            Me.GvDatosCA.DataSource = Nothing
-        End If
-
-        ObjCaracteristicas.Dispose()
-
         If ViewState("OrdenCA").ToString() <> String.Empty Then
             CargaGrid(ViewState("OrdenCA").ToString(), 1)
         Else
@@ -301,7 +255,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
     End Sub
     Private Sub CargaClasificacionesCA()
         DdlClasificacionesCA.Items.Clear()
-        DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
+        DdlClasificacionesCA.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosCA.SelectedValue.ToEntero))
         DdlClasificacionesCA.DataBind()
         UpdatePanel1.Update()
     End Sub
@@ -374,8 +328,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         Dim ObjCaracteristicas As New ClsAF
         If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatosCA.EditIndex = -1
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
-            GlobalDTAFCaracteristicas = ObjCaracteristicas.DtResultados
             Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -412,7 +365,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
 
         If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then
             GvDatosCA.EditIndex = -1
-            ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
 
             CargaSubTiposActivosFijos()
 
@@ -521,7 +474,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         DdlCaracteristicaOpciones.Items.Clear()
         'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
         Dim Filtro = If(DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", DdlSubTiposActivosFijosOpciones.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", DdlTiposActivosFijosOpciones.SelectedValue.ToEntero))
-        DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro)
+        DdlCaracteristicaOpciones.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
         DdlCaracteristicaOpciones.DataBind()
         DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -581,7 +534,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").Items.Insert(0, New ListItem("Todos", "-1"))
                 e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")
 
-                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas
+                e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
                 e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind()
                 FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones"))
                 e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica")
@@ -691,7 +644,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
         ddlC.Items.Clear()
         'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero)
         Dim Filtro = If(ddlST.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0}", ddlST.SelectedValue.ToEntero), String.Format("CveTipoActivoFijo = {0}", ddlT.SelectedValue.ToEntero))
-        ddlC.DataSource = GlobalDTAFCaracteristicas.FiltraParametros(Filtro)
+        ddlC.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Filtro)
         ddlC.DataBind()
         ddlC.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -742,21 +695,17 @@ Partial Class AF_CatClasificacionesCaracteristicas
     Private Sub CargaGrid(Orden As String, gvi As Integer)
         If gvi = 0 Then
             If Orden <> String.Empty Then
-                Dim DV As New DataView(CType(ViewState("DTCaracteristicaClasificacion"), DataTable), "", Orden, DataViewRowState.CurrentRows)
+                GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
-                GvDatosCL.DataSource = DV.ToTable()
-                DV.Dispose()
             Else
-                GvDatosCL.DataSource = CType(ViewState("DTCaracteristicaClasificacion"), DataTable)
+                GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
             End If
             GvDatosCL.DataBind()
             UpDatosCL.Update()
         ElseIf gvi = 1 Then
             If Orden <> String.Empty Then
-                Dim DV As New DataView(CType(ViewState("DTCatacteristica"), DataTable), "", Orden, DataViewRowState.CurrentRows)
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
-                GvDatosCA.DataSource = DV.ToTable()
-                DV.Dispose()
             Else
-                GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable)
+                GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
             End If
             GvDatosCA.DataBind()
             UpDatosCA.Update()

App_Code/ClsNominas.vb

@@ -261,6 +261,29 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
+
+    'Reporte Conceptos Acumulados
+    Public Function GetRepConceptosAcumulados(CveConcepto As Integer, Ejercicio As Integer, CveTipoPeriodo As Integer, CvePeriodo As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_ConceptosAcumuladosGetRep")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
+            .Add("@CveTipoPeriodo", SqlDbType.Int).Value = CveTipoPeriodo
+            .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+            .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte Conceptos Acumulados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
     Public Function ManifiestoForVtaGet(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, CveEmbarqueManifiesto As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_ManifiestoForVtaGet", CommandType.StoredProcedure)

App_Code/ClsPaginas.vb

@@ -1921,7 +1921,7 @@ Public Class ClsPaginas
             'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjClientes As New ClsClientes
-                If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados
+                If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa, Estatus:=-1) Then Application(AppNombre) = ObjClientes.DtResultados.Copy()
                 ObjClientes.Dispose()
             End If
             If CveEmpresa <> -1 Then

App_Code/ClsVentas.vb

@@ -5528,12 +5528,13 @@ Public Class ClsVentas
     End Function
 
 
-    Public Function GetLineasAdicionales(CveCliente As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetLineasAdicionales(CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_LineasAdicionalesGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus

App_Code/Modelos.vb

@@ -3383,8 +3383,8 @@ Namespace Modelos
                                             'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
                                             If Not TmpDTDetalle(i)("CveClasificacion").ToString.Contiene("19958", "19933", "20242") Then
 
-                                                If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
+                                                If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
-                                                    TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString
+                                                    TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString
                                                 End If
 
                                             End If

Bancos/ConciliacionesBancarias.aspx.vb

@@ -638,14 +638,14 @@ Partial Class Bancos_ConciliacionesBancariasaspx
                 End If
             End If
             If CveCuenta > 0 Then
-                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then
+                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuenta, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                     If ObjConta.DtResultados.Rows.Count > 1 Then
                         SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
                     End If
                 End If
             End If
             If CveCuentaComplementaria > 0 Then
-                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, "-1", UsuarioActual.CveEmpresa, "1") Then
+                If ObjConta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveMoneda, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                     If ObjConta.DtResultados.Rows.Count > 1 Then
                         SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
                     End If

Bancos/FluctuacionCambiaria.aspx.vb

@@ -313,7 +313,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 Dim Total As Decimal = 0
                 Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero
                 If CveCuentaExtranjera > 0 Then
-                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then
+                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                         If Conta.DtResultados.Rows.Count > 1 Then
                             Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
                         End If
@@ -324,7 +324,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 Dim SaldoActualContabilidad As Decimal = 0
                 Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero
                 If CveCuentaComplementaria > 0 Then
-                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, "-1", UsuarioActual.CveEmpresa, "1") Then
+                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
                         If Conta.DtResultados.Rows.Count > 1 Then
                             SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
                         End If

Bancos/IE.aspx.vb

@@ -1020,6 +1020,12 @@ Partial Class Bancos_IE
                     DdlPersonal.Enabled = False
                 End If
 
+                'SI TIENE EL DATO DEBE MOSTRALO
+                If UsuarioActual.CveEmpresa = 119 AndAlso LblPagueseA.Text = "Beneficiario" AndAlso Not String.IsNullOrEmpty(ObjIE.PagueseA) Then
+                    LblPagarA.Visible = True
+                    LblPagarA.Text = ObjIE.PagueseA
+                End If
+
                 IDPoliza = ObjIE.IDPoliza
                 IDCtaContable = ObjIE.IdCtaContable
 

Contabilidad2/MovimientosconProveedores.aspx.vb

@@ -52,11 +52,11 @@ Partial Class MovimientosconProveedores
             ViewState("DTCuentas") = value
         End Set
     End Property
-    Private Property CveSubProyecto As String
+    Private Property CveSubProyecto As Integer
         Get
-            CveSubProyecto = ViewState("CveSubProyecto").ToString
+            CveSubProyecto = CType(ViewState("CveSubProyecto"), Integer)
         End Get
-        Set(value As String)
+        Set(value As Integer)
             ViewState("CveSubProyecto") = value
         End Set
     End Property
@@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores
                     End If
 
                     If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
-                        CveSubProyecto = Request("CveSubProyecto").ToString
+                        CveSubProyecto = Request("CveSubProyecto").ToEntero
                     End If
 
 
@@ -184,9 +184,9 @@ Partial Class MovimientosconProveedores
         End If
         'Dim CveSubProyecto As String
         If Request("CveSubProyecto") IsNot Nothing Then
-            CveSubProyecto = Request("CveSubProyecto").ToString
+            CveSubProyecto = Request("CveSubProyecto").ToEntero
         Else
-            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
+            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
         End If
 
         If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte, 1) Then

Contabilidad2/RepAnexoCatalogo.aspx.vb

@@ -201,7 +201,7 @@ Partial Class AC2_RepAnexoCatalogo
 
         DdlCuentas.DataBind()
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
 
     End Sub
 

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -117,7 +117,7 @@ Partial Class AC_RepEstadoActividades
         End If
         DdlPeriodo.SelectedValue = Now.Month.ToString
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
 
     End Sub
 

Contabilidad2/RepEstadoResultados.aspx.vb

@@ -177,10 +177,10 @@ Partial Class Contabilidad2_RepEstadoResultados
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 0) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatos = Nothing

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -228,7 +228,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         ObjTipoCuenta.Dispose()
         DdlCuentas.DataBind()
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
 
     End Sub
 

Empresas/13/Formatos/Factura.rdlc

@@ -3479,50 +3479,8 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Textbox Name="Textbox6">
-        <CanGrow>true</CanGrow>
-        <KeepTogether>true</KeepTogether>
-        <Paragraphs>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value>VERSION </Value>
-                <Style>
-                  <FontSize>9.16pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>=Parameters!CFDIVersion.Value</Value>
-                <Style>
-                  <FontSize>9.16pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Center</TextAlign>
-            </Style>
-          </Paragraph>
-        </Paragraphs>
-        <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>14.03578cm</Top>
-        <Left>16.60468cm</Left>
-        <Height>0.65292cm</Height>
-        <Width>3.68516cm</Width>
-        <ZIndex>50</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-          <PaddingLeft>2pt</PaddingLeft>
-          <PaddingRight>2pt</PaddingRight>
-          <PaddingTop>2pt</PaddingTop>
-          <PaddingBottom>2pt</PaddingBottom>
-        </Style>
-      </Textbox>
     </ReportItems>
-    <Height>14.6887cm</Height>
+    <Height>14.00096cm</Height>
     <Style />
   </Body>
   <Width>20.42213cm</Width>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1647,9 +1647,9 @@ Partial Class Inventarios_TraspasoAlmacen
                         'DEBE CONSIDERAR SOLO LAS FILAS QUE TENGA PRODUCTOS, NO EL TOTALIZADOR
                         If CvePS > 0 Then
                             CveMovimientoDetalleSalida = GvRow.DataKey("CveMovimientoDetalle").ToEntero
-                            Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal
+                            Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
 
-                            If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
+                            'If ChkRealizarDevolucion.Checked Then Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal
 
                             Dim PrecioUnitario As Decimal = GvRow.DataKey("PU").ToDecimal
                             If CveMovimientoDetalleSalida <= 0 Then
@@ -1657,7 +1657,16 @@ Partial Class Inventarios_TraspasoAlmacen
                                 TextoError = "Ocurrió un error al guardar los movimientos de salida"
                                 Exit For
                             End If
-                            If Cantidad <> 0 Then
+
+                            Dim cantidadDisponibleValidacion As Decimal = GvRow.DataKey("Cantidad").ToDecimal - GvRow.FCTextBox("TxtCantidad").Text.ToString.ToDecimal
+
+                            If cantidadDisponibleValidacion < 0 Then
+                                ErrorMovInv = True
+                                TextoError = $"La cantidad a cancelar del producto '{GvRow.DataKey("Codigo")}-{GvRow.DataKey("PS")}' excede la del traspaso"
+                                Exit For
+                            End If
+
+                            If Cantidad > 0 Then
                                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Cantidad, GvRow.DataKey("CveUM").ToEntero, CvePS, PrecioUnitario, -1, -1, Serie:=GvRow.DataKey("Serie"), Lote:=GvRow.DataKey("Lote"), FechaCaducidad:=GvRow.DataKey("FechaCaducidad").ToDate, CveMovimientoDetalleEntrada:=CveMovimientoDetalleSalida) Then
                                     ErrorMovInv = True
                                     TextoError = "Ocurrió un error al guardar los movimientos de entrada"

Nomina/ConceptoNomina.aspx

@@ -200,12 +200,6 @@
                                     </div>
 
                                     <div class="row">
-                                        <div class="col-md-6">
-                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
-                                                <asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
-                                                <asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
-                                            </div>
-                                        </div>
                                         <div class="col-md-6">
                                             <div class="form-group form-md-line-input form-md-floating-label input-iconright">
                                                 <asp:Label runat="server" Text="Concepto SAT" AssociatedControlID="DdlConceptoSAT"></asp:Label>
@@ -216,6 +210,73 @@
 
                                 </div>
                             </div>
+
+                            <div class="portlet smmallpadding light bordered" id="Div1" runat="server">
+                                <div class="portlet-title">
+                                    <div class="caption uppercase " style="position: relative;">
+                                        <i class="fa fa-info-circle font-yellow-gold"></i>
+                                        <span class="caption-subject font-yellow-gold bold uppercase">Provisión </span>
+                                    </div>
+                                    <div class="actions">
+                                        <div class="btn-group">
+                                        </div>
+                                    </div>
+                                </div>
+                                <div class="portlet-body rowpadding">
+                                    
+                                    <div class="row">
+                                        <div class="col-md-6">
+                                        <label class=" " style="margin-top: 12px;margin-bottom: 12px;" >Contabiliza:</label><br />
+                                            <asp:CheckBox ID="ChkContabiliza" CssClass="chksino" Text=" " runat="server" />
+                                        </div>
+                                        <div class="col-md-6">
+                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                                <asp:Label runat="server" Text="Tipo Provisión" AssociatedControlID="DdlTipoProvision"></asp:Label>
+                                                <asp:DropDownList ID="DdlTipoProvision" runat="server" AppendDataBoundItems="True" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                                    <asp:ListItem Value ="1" Text="Normal" />
+                                                    <asp:ListItem Value ="2" Text="Diferente Cta. con valor negativo" />
+                                                </asp:DropDownList>
+                                            </div>
+                                        </div>
+                                    </div>
+                                    <div class="row">
+                                        
+                                        <div class="col-md-6">
+                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                                <asp:Label runat="server" Text="Cuenta contable" AssociatedControlID="DdlCtaContable"></asp:Label>
+                                                <asp:DropDownList ID="DdlCtaContable" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                            </div>
+                                        </div>
+                                        <div class="col-md-6">
+                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                                <asp:Label runat="server" Text="Cargo ó Abono" AssociatedControlID="ddlCargooAbono"></asp:Label>
+                                                <asp:DropDownList ID="ddlCargooAbono" runat="server" AppendDataBoundItems="True" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                                    <asp:ListItem Value ="0" Text="Cargo" />
+                                                    <asp:ListItem Value ="1" Text="Abono" />
+                                                </asp:DropDownList>
+                                            </div>
+                                        </div>
+                                    </div>
+                                    <div class="row">
+                                        <div class="col-md-6">
+                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                                <asp:Label runat="server" Text="Cuenta contable B" AssociatedControlID="DdlCtaContableB"></asp:Label>
+                                                <asp:DropDownList ID="DdlCtaContableB" runat="server" AppendDataBoundItems="True" DataTextField="CtaCodigo" DataValueField="CveCuenta" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                            </div>
+                                        </div>
+                                        <div class="col-md-6">
+                                            <div class="form-group form-md-line-input form-md-floating-label input-iconright">
+                                                <asp:Label runat="server" Text="Cargo ó Abono" AssociatedControlID="ddlCargooAbonoB"></asp:Label>
+                                                <asp:DropDownList ID="ddlCargooAbonoB" runat="server" AppendDataBoundItems="True" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">
+                                                    <asp:ListItem Value ="0" Text="Cargo" />
+                                                    <asp:ListItem Value ="1" Text="Abono" />
+                                                </asp:DropDownList>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+                            </div>
+
                         </div>
 
                         <div class="col-md-5">
@@ -348,7 +409,7 @@
                                     <div class="row">
                                         <label class="col-md-3 truncate ">Movimiento Permanente:</label>
                                         <div class="col-md-3">
-                                            <asp:CheckBox ID="ChkMovtoPermanente" AutoPostBack="true" OnCheckedChanged ="ChkMovtoPermanente_CheckedChanged" CssClass="chksino" Text=" " runat="server" />
+                                            <asp:CheckBox ID="ChkMovtoPermanente" AutoPostBack="true" OnCheckedChanged="ChkMovtoPermanente_CheckedChanged" CssClass="chksino" Text=" " runat="server" />
                                         </div>
                                     </div>
                                 </div>

Nomina/ConceptoNomina.aspx.cs

@@ -464,11 +464,15 @@ public partial class Nomina_CatConcepto : ClsPaginas
                 ChkEstado.Checked = drow["Estado"].Equals("Activo");
                 ChkSistema.Checked = drow["Sistema"].Equals("Sí");
                 ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
+                ChkContabiliza.Checked = drow["Contabiliza"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 ChkEspecie.Checked = drow["Especie"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
                 ChkImprimir.Checked = drow["Imprimir"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" });
 
                 DdlClasificacion.SelectedValueExist(drow["CveClasificacion"]);
+                DdlTipoProvision.SelectedValueExist(drow["TipoProvision"]);
+                ddlCargooAbono.SelectedValueExist(drow["CargoOAbono"]);
+                ddlCargooAbonoB.SelectedValueExist(drow["CargoOAbonoB"]);
                 DdlTipoGasto.SelectedValueExist(drow["CveTipoGasto"]);
                 //DdlCtaContable.SelectedValueExist(drow["CveCuenta"]);
                 if (DdlCtaContable.DataValueField == "Id")
@@ -479,6 +483,14 @@ public partial class Nomina_CatConcepto : ClsPaginas
                 {
                     DdlCtaContable.SelectedValueExist(drow["CveCuenta"]);
                 }
+                if (DdlCtaContableB.DataValueField == "Id")
+                {
+                    DdlCtaContableB.SelectedValueExist(drow["IdCtaContableB"]);
+                }
+                else
+                {
+                    DdlCtaContableB.SelectedValueExist(drow["CveCuentaB"]);
+                }
                 //if (UsuarioActual.Empresa.TipoContabilidad == 1)
                 //{ 
                 //}

Nomina/Nomina.aspx.cs

@@ -8466,15 +8466,17 @@ public partial class Nomina_Nomina2 : ClsPaginas
         DateTime fechai = TxtRIFechaInicio.Text.ToDateTime();
         DateTime fechaf = TxtRIFechaFin.Text.ToDateTime();
         ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
+        int CveTipoPeriodo=0;
         using (ClsNominas nom = new ClsNominas())
         {
             if (nom.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodoSeleccionado, -1) && (nom.DtResultados.Rows.Count > 0))
             {
                 fechai = nom.DtResultados.Rows[0]["FechaInicio"].ToString().ToDateTime();
                 fechaf = nom.DtResultados.Rows[0]["FechaFin"].ToString().ToDateTime();
+                CveTipoPeriodo = -nom.DtResultados.Rows[0]["CveTipoPeriodo"].ToString().ToEntero();
             }
 
-            if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf, -4))
+            if (nom.ReportedeincidenciasGET(UsuarioActual.CveEmpresa, fechai, fechaf,  CveTipoPeriodo))
             {
 
                 var libro = wb.AddWorksheet(nom.DTSetResultados.Tables[2], "Incidencias");

Nomina/ReportedeAcumulados.aspx

@@ -321,7 +321,14 @@
                                 <ItemTemplate>
                                     <asp:Literal ID="LtlSucursal" runat="server"></asp:Literal>
                                 </ItemTemplate>
-                                <ItemStyle Width="1500px" HorizontalAlign="Left" />
+                                <ItemStyle Width="150px" HorizontalAlign="Left" />
+                            </asp:TemplateField>
+                            <asp:TemplateField>
+                                <HeaderTemplate>NSS</HeaderTemplate>
+                                <ItemTemplate>
+                                    <asp:Literal ID="LtlNSS" Text='<%# Eval("NumeroSS")%>' runat="server"></asp:Literal>
+                                </ItemTemplate>
+                                <ItemStyle Width="150px" HorizontalAlign="Left" />
                             </asp:TemplateField>
                             <asp:TemplateField>
                                 <HeaderTemplate>Registro Patronal</HeaderTemplate>

Nomina/ReportedeAcumulados.aspx.cs

@@ -196,7 +196,7 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
 
             //string ctipo = "P";
 
-            int CurrentColumn = 4;
+            int CurrentColumn = 5;
             BoundField bf;
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 ").Rows)
             {
@@ -407,13 +407,28 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
             libro.Cell(1, column).Value = " ";
             libro.Cell(2, column).Value = "Codigo";
             libro.Cell(3, column).Value = " ";
-            column++;
+                column++;
-            libro.Cell(1, column).Value = " ";
+                libro.Cell(1, column).Value = " ";
-            libro.Cell(2, column).Value = "Empleado";
+                libro.Cell(2, column).Value = "Empleado";
-            libro.Cell(3, column).Value = " ";
+                libro.Cell(3, column).Value = " ";
-            libro.Column(column).Width = 35;
+                libro.Column(column).Width = 35;
+                column++;
+                libro.Cell(1, column).Value = " ";
+                libro.Cell(2, column).Value = "Sucursal";
+                libro.Cell(3, column).Value = " ";
+                libro.Column(column).Width = 35;
+                column++;
+                libro.Cell(1, column).Value = " ";
+                libro.Cell(2, column).Value = "NSS";
+                libro.Cell(3, column).Value = " ";
+                libro.Column(column).Width = 35;
+                column++;
+                libro.Cell(1, column).Value = " ";
+                libro.Cell(2, column).Value = "Registro Patronal";
+                libro.Cell(3, column).Value = " ";
+                libro.Column(column).Width = 35;
 
-            int iniciotipe = column;
+                int iniciotipe = column;
             foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows)
             {
 
@@ -520,11 +535,17 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
                 }
                 column = 1;
                 libro.Cell(Fila, column).Value = string.Format("'{0}",erow["Codigo"]);
-                column++;
+                    column++;
-                if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
+                    if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
-                if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
+                    if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
-                libro.Cell(Fila, column).Value = erow["Nombre"];
+                    libro.Cell(Fila, column).Value = erow["Nombre"];
-                foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
+                    column++; 
+                    libro.Cell(Fila, column).Value = erow["SubProyecto"];
+                    column++; 
+                    libro.Cell(Fila, column).Value =string.Format("'{0}", erow["NumeroSS"]);
+                    column++; 
+                    libro.Cell(Fila, column).Value = erow["RegistroPatronal"];
+                    foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
                 {
                     column++;
                     string Concepto = string.Format("V_{0}", row["CveConcepto"]);
@@ -594,11 +615,11 @@ public partial class Nomina_ReportedeAcumulados : ClsPaginas
                 if (newsubproyecto)
                 {
                     libro.Range(Fila - 3, 1, Fila - 3, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(184, 204, 228));
-                    libro.Range(Fila - 3, 3, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
+                    libro.Range(Fila - 3, 6, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
-                    libro.Range(Fila - 3, 3, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
+                    libro.Range(Fila - 3,6, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
                 }
-                libro.Range(Fila , 3, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
+                libro.Range(Fila , 6, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
-                libro.Range(Fila, 3, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
+                libro.Range(Fila, 6, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
 
             }
 

RH/CatTurno.aspx

@@ -39,7 +39,7 @@
             </div>
             <table id="thheader" style="display: none;">
                 <tr>
-                    <th colspan="4"></th>
+                    <th colspan="6"></th>
                     <th class="bright bleft" colspan="2">Entrada</th>
                     <th class="bright bleft">Salida</th>
                     <th colspan="4"></th>
@@ -50,9 +50,16 @@
                 DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta">
                 <Columns>
                     <asp:BoundField DataField="Turno" HeaderText="Turno" ItemStyle-HorizontalAlign="Left" />
-                    <asp:BoundField DataField="ChecadorHorario" HeaderText="Checador Horario" ItemStyle-HorizontalAlign="Left" />
+                    <%--<asp:BoundField DataField="ChecadorHorario" HeaderText="Checador Horario" ItemStyle-HorizontalAlign="Left" />--%>
                     <asp:BoundField DataField="HorarioDe" HeaderText="Hr. Entrada" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="HorarioA" HeaderText="Hr. Salida" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField DataField="ComidaDe" HeaderText="Hr.Comida E" ItemStyle-HorizontalAlign="Center" />
+                    <asp:BoundField DataField="ComidaA" HeaderText="Hr. Comida S" ItemStyle-HorizontalAlign="Center" />
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Comida">
+                        <ItemTemplate>
+                            <asp:Label ID="LblEstatusZ" runat="server" Text='<%# Eval("SComida") %>'>></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:BoundField DataField="ToleranciaERetardo" HeaderStyle-CssClass=" bleft" HeaderText="Tolerancia" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="ToleranciaEFalta2" HeaderStyle-CssClass="bright " HeaderText="Retardo" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField DataField="ToleranciaSFalta" HeaderStyle-CssClass="bright bleft" HeaderText="Tolerancia" ItemStyle-HorizontalAlign="Center" />

Ventas/Clientes.aspx

@@ -4535,7 +4535,35 @@
 
                 <ajax:TabPanel ID="TabLineasAdicionales" runat="server" HeaderText="Lineas Adicionales" Visible="false">
                     <ContentTemplate>
-                         
+                        <asp:UpdatePanel ID="UpFiltrosLA" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria3">
+                                    <div class="portlet-title portlet-filterT smalltitle">
+                                        <div class="tools">
+                                            <asp:Button ID="BtnConsultarLineas" OnClick="BtnConsultarLineas_Click" ValidationGroup="Valida" runat="server" Text="Consultar" class="btn btn-primary" />
+                                            <a href="javascript:;" class="expand"></a>
+                                        </div>
+                                        <div class="titlefiltros  caption">
+                                            <div class="row">
+                                                <label class="col-md-1 " style="width: 120px; text-align: right">Comercializador:</label>
+                                                <div class="col-md-2" style="width: 250px">
+                                                <ADS:Dropdownlost ID="DdlProveedorLineaAdicional" SelectedText="-" IncluyeTodos="true" runat="server" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"
+                                                    DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                                                </div>
+                                                <label class="col-md-1 truncate" style="width: 120px; text-align: right">Estatus:</label>
+                                                <div class="col-md-2" style="width: 120px">
+                                                    <asp:DropDownList ID="DdlEstatusLineaAdicional" runat="server" Cssclass="table-group-action-input form-control select2me">
+                                                        <asp:ListItem value="-1" Text="Todos"/>
+                                                        <asp:ListItem value="1" Text="Vinculado"/>
+                                                        <asp:ListItem Selected="True" value="0" Text="Sin Registrar"/>
+                                                    </asp:DropDownList>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
                         <div class="row ">
                             <div class="col-md-12">
 

Ventas/Clientes.aspx.vb

@@ -452,7 +452,16 @@ Partial Class Clientes
         Set(value As DataTable)
             ViewState("DtAnticipoHistorial") = value
         End Set
+    End Property
+    Private Property DtLineaAdicional As DataTable
+        Get
+            Return CType(ViewState("DtLineaAdicional"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtLineaAdicional") = value
+        End Set
     End Property
+
     'Private Property EstatusAnteriorCliente As Boolean
     '    Get
     '        If ViewState("EstatusAnteriorCliente") Is Nothing Then
@@ -1121,10 +1130,6 @@ Partial Class Clientes
             End If
         End If
 
-
-
-
-
         ObjCliente.Dispose()
 
         DdlSucursalCliente.DataBind()
@@ -1139,9 +1144,9 @@ Partial Class Clientes
         DdlClienteSucursalEnvio.DataBind()
         DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClienteSucursalEnvio.SelectedValue = "-1"
-
+    End Sub
-
+    Private Sub CargaSubProyectosSuscursales()
-
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
     End Sub
     Private Sub CargaGridRetenciones()
         Dim ObjClientes As New ClsClientes
@@ -1152,10 +1157,6 @@ Partial Class Clientes
         ObjClientes.Dispose()
         GvRetenciones.DataBind()
     End Sub
-
-
-
-
     Private Sub CargaCuentasEquipos()
         Dim Objeto As New ClsGenerales
         If Objeto.GetCuentasEquipos(CveCliente, -1) Then
@@ -10318,6 +10319,11 @@ Partial Class Clientes
 
     Private Sub CargaCombosLineasAdicionales()
 
+        DdlProveedorLineaAdicional.setEsWebService(True)
+        DdlProveedorLineaAdicional.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedorLineaAdicional.SelectedText = "-"
+        DdlProveedorLineaAdicional.SelectedValue = "-1"
+
         DdlProveedorLineaAdicionalModal.setEsWebService(True)
         DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
         DdlProveedorLineaAdicionalModal.SelectedText = "-"
@@ -10326,22 +10332,42 @@ Partial Class Clientes
         DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoriaLineaAdicionalModal.DataBind()
         DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
-
+
     End Sub
 
+    Protected Sub BtnConsultarLineas_Click(sender As Object, e As EventArgs)
+        FiltrarLineasAdicionales()
+    End Sub
+
+    Protected Sub FiltrarLineasAdicionales()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, DdlEstatusLineaAdicional.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvLineasAdicionales.DataSource = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GvLineasAdicionales.DataBind()
+        UpLineasAdicionales.Update()
+    End Sub
+    'Protected Sub DdlProveedorLineaAdicional_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedorLineaAdicional.selectedindexchange
+    '    FiltrarLineasAdicionales()
+    'End Sub
+
+    'Protected Sub DdlEstatusLineasAdicionales_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusLineaAdicional.SelectedIndexChanged
+    '    FiltrarLineasAdicionales()
+    'End Sub
+
     Private Sub GetLineasAdicionales()
 
         Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetLineasAdicionales(CveCliente, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa) Then
             GvLineasAdicionales.DataSource = ObjVentas.DtResultados
         End If
-
         ObjVentas.Dispose()
+
         GvLineasAdicionales.DataBind()
+        FiltrarLineasAdicionales()
         UpLineasAdicionales.Update()
-
-
     End Sub
 
     Protected Sub LnkAgregarLineaAdicional_Click(sender As Object, e As EventArgs)

Ventas/Ventas.aspx

@@ -555,9 +555,9 @@
                                 </td>
                             </tr>
                             <tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
-                            <td><b>Descripción de factura:</b></td>
+                                <td><b>Descripción de factura:</b></td>
-                            <td>
+                                <td colspan="3">
-                                <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
+                                    <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
                             </tr>
                         </table>
                     </div>
@@ -8454,7 +8454,7 @@
                         TxtImporte.value = FormatoNumero(Saldo, 2);
                     }
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         TxtImporte.value = "";
                         Chk.checked = false;
                     } else {
@@ -8498,7 +8498,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8565,7 +8565,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8632,7 +8632,7 @@
                 if (Importe > 0) {
 
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         Importe = 0;
                         Chk.checked = false;
                     } else {
@@ -8862,7 +8862,7 @@
                         TxtImporte.value = FormatoNumero(Saldo, 2);
                     }
                 } else {
-                    if (SaldoMaximoUtilizable > 0) {
+                    if (SaldoMaximoUtilizable <= 0) {
                         TxtImporte.value = "";
                         Chk.checked = false;
                     } else {

Ventas/Ventas.aspx.vb

@@ -13939,7 +13939,10 @@ Partial Class Ventas
                                 Dim ImporteConcepto12 As Decimal = 0
                                 Dim ImporteAcumulado91 As Decimal = 0
                                 Dim CveUltimaVenta As Integer = 0
-                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                If tipoCambio > 1 Then
+                                    Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                    ConceptoContable = 293
+                                End If
                                 If tipoCambio = 1 Then
                                     IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
                                 ElseIf UsaComplementariaClientes Then
@@ -14758,8 +14761,8 @@ Partial Class Ventas
                                         'se excluyen las clasificaciones anteriores para que se asignen las de ingreso
                                         If Not TmpDTDetalle(i)("CveClasificacion").ToString().Contiene("19958", "19933", "18097") Then
 
-                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows.Count > 0 Then
+                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows.Count > 0 Then
-                                                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveClasificacion").ToString()
+                                                TmpDTDetalle(i)("CveClasificacion") = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDTDetalle(i)("PorcentajeIVA").ToString().ToDouble).Rows(0)("CveClasificacion").ToString()
                                             End If
 
                                         End If
@@ -17640,7 +17643,14 @@ Partial Class Ventas
                 CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero()
                 If CvePrecioListaPS <= 0 Then
                     CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
+                End If
 
+                If Me.CvePrecioListaCliente > 0 Then
+                    Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
+                    'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS
+                    If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then
+                        CvePrecioListaPS = Me.CvePrecioListaCliente
+                    End If
                 End If
 
             End If
@@ -25906,7 +25916,7 @@ Partial Class Ventas
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero() Else CveMarca = DdlMarca.SelectedValue.ToEntero()
 
         Dim ObjProductosServicios As New ClsProductosServicios()
-        If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero()) > 0 Then
+        If ObjProductosServicios.AddPS(DdlClasificacionPS.SelectedValue.ToEntero(), -1, DdlUnidadMedidaPS.SelectedValue.ToEntero(), TxtCodigoPS.Text.Trim, "", TxtCodigoBarrasPS.Text.Trim, TxtPS.Text.Trim, 0, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInventario, 0, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero(), CveMarca:=CveMarca, CveSATPS:=DdlSATPS.SelectedValue.ToEntero(), CveClasificacionDetalle:=DdlTipo.SelectedValue.ToEntero(), CveObjetoImpuesto:=2) > 0 Then
             DdlClasificacion.SelectedValueExist(DdlClasificacionPS.SelectedValue.ToEntero())
             DdlClasificacion_SelectedIndexChanged(DdlClasificacionPS, e)
 
@@ -36150,6 +36160,14 @@ Partial Class Ventas
                         If CvePrecioListaPS <= 0 Then
                             CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                         End If
+
+                        If Me.CvePrecioListaCliente > 0 Then
+                            Dim ArrayClientes As String() = UsuarioActual.Empresa.Funcionalidad(711).Split(",".ToCharArray())
+                            'VERIFICA SI EL CLIENTE ACTUAL DEBE TENER PRIORIDAD SU LISTA DE PRECIOS
+                            If ArrayClientes.Length > 0 AndAlso ArrayClientes.Count(Function(cliente) cliente.Trim() = Me.CveCliente.ToString()) > 0 Then
+                                CvePrecioListaPS = Me.CvePrecioListaCliente
+                            End If
+                        End If
                     End If
 
                     If CvePrecioListaPS > 0 Then