AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-02-13 10:17:41 -07:00
parent ad00d309cb 7cfa0f3d46
commit 17cc2c85aa
45 changed files with 441 additions and 238 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
AF/CatClasificacionesCaracteristicas.aspx.vb
View File

@@ -53,8 +53,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
'Carga Globals para DT
CargaTiposActivosFijos()
CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones()
CargaCaracteristicas()
''CargaCaracteristicasClasificaciones()
'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
@@ -267,8 +232,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones()
CargaCaracteristicas()
''CargaCaracteristicasClasificaciones()
'CargaCaracteristicas()
If ViewState("OrdenCA").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -281,16 +246,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 +256,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 +329,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 = ObjCaracteristicas.DtResultados
GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -412,7 +366,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 +475,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 +535,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 +645,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 +696,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 = DV.ToTable()
DV.Dispose()
GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
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 = DV.ToTable()
DV.Dispose()
GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros(Nothing, Orden)
Else
GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable)
GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
End If
GvDatosCA.DataBind()
UpDatosCA.Update()

3
App_Code/ClsContabilidad.vb
View File

@@ -3843,6 +3843,8 @@ Public Class ClsContabilidad
Return Retorno
End Function
'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, TipoMovtos As Integer, CveProyecto As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional SAT As Integer = 0) As Boolean
Dim Retorno = False
@@ -5533,6 +5535,7 @@ Public Class ClsContabilidad
Return Retorno
End Function
'Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
Dim Retorno = False

45
App_Code/ClsNominas.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data
Imports System.Data.SqlClient
Imports ADSNetLibrary.SIGAPI.Models
Imports Extensiones
Imports HigLabo
@@ -261,6 +262,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)
@@ -1333,7 +1357,8 @@ Public Class ClsNominas
Public Function AddConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer,
EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer) As Integer
AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer,
ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Nom_ConceptosAdd")
@@ -1360,6 +1385,14 @@ Public Class ClsNominas
.Add("Especie", SqlDbType.Bit).Value = Especie
.Add("Imprimir", SqlDbType.Bit).Value = Imprimir
.Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto
.Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv
.Add("Contabiliza", SqlDbType.Int).Value = contabiliza
.Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono
.Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB
.Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB
.Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB
End With
Try
@@ -1384,7 +1417,8 @@ Public Class ClsNominas
Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer,
EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer,
AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer) As Boolean
AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer,
ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Nom_ConceptosUpdate")
@@ -1410,6 +1444,13 @@ Public Class ClsNominas
.Add("Imprimir", SqlDbType.Bit).Value = Imprimir
.Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto
.Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv
.Add("Contabiliza", SqlDbType.Int).Value = contabiliza
.Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono
.Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB
.Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB
.Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB
End With
Try

21
App_Code/ClsRH.vb
View File

@@ -3520,9 +3520,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
#End Region
#Region "ClsRHTurnos"
Public Function GetTurnos() As Boolean
Public Function GetTurnos(Optional CveEmpresa As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_RH_TurnoGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
@@ -3533,7 +3536,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Return Retorno
End Function
Public Function AddTurno(Turno As String, HorarioDe As String, HorarioA As String, CveUsuario As Integer, CveEmpresa As Integer, CveChecadorHorario As Integer,
ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean
ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer,
Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean
Dim Retorno As Boolean = False
@@ -3543,6 +3547,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@Turno", SqlDbType.VarChar).Value = Turno
.Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe
.Add("@HorarioA", SqlDbType.Time).Value = HorarioA
.Add("@Comida", SqlDbType.Int).Value = Comida
.Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe
.Add("@ComidaA", SqlDbType.Time).Value = ComidaA
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveChecadorHorario", SqlDbType.Int).Value = CveChecadorHorario
@@ -3568,7 +3577,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
Return Retorno
End Function
Public Function UpdateTurno(Turno As String, HorarioDe As String, HorarioA As String, Estatus As Boolean, CveTurno As Integer, CveUsuario As Integer, CveChecadorHorario As Integer,
ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean
ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer,
Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean
Dim Retorno As Boolean = False
@@ -3578,6 +3588,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
.Add("@Turno", SqlDbType.VarChar).Value = Turno
.Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe
.Add("@HorarioA", SqlDbType.Time).Value = HorarioA
.Add("@Comida", SqlDbType.Int).Value = Comida
.Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe
.Add("@ComidaA", SqlDbType.Time).Value = ComidaA
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveTurno", SqlDbType.Int).Value = CveTurno
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario

4
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -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

4
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -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

15
Bancos/Transferencias.aspx.vb
View File

@@ -321,8 +321,6 @@ Partial Class Bancos_Transferencias
Dim IDCtaContableComplementariaDestino As Integer = 0
Dim IdCtaContableDestino As Integer = 0
Dim CuentasContablesInvalidasSIG As New StringBuilder
Dim CveCuentaOrigen As Integer = 0
Dim CveCuentaDestino As Integer = 0
Dim RowCuentaOrigen As DataRow = Nothing
@@ -347,18 +345,8 @@ Partial Class Bancos_Transferencias
CuentasContablesInvalidas.Append("<br> Cuenta Contable Destino")
End If
'Conta SIG
If CveCuentaOrigen < 1 Then
CuentasContablesInvalidasSIG.Append("<br> Cuenta Contable Origen")
End If
If CveCuentaDestino < 1 Then
CuentasContablesInvalidasSIG.Append("<br> Cuenta Contable Destino")
End If
If Opcion = 1 Then ' CUANDO ES DOMICILIZACION
IdCtaContableOrigen = IdCtaContableDestino
CveCuentaOrigen = CveCuentaDestino
End If
Dim TipoMovtoDetalle As Boolean = True
@@ -369,7 +357,6 @@ Partial Class Bancos_Transferencias
TxtImporte.Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableOrigen, -1, CveIE,
ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), TxtImporte.Text.ToDouble, ImporteMXOrigen),
ImporteME:=If(CveMonedaOrigen > 1, TxtImporte.Text.ToDouble * TC, 0),
CveCuenta:=CveCuentaOrigen,
CveIEDevolucion:=CveIEDevolucion) Then
If CveMonedaOrigen > 1 AndAlso Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
@@ -401,7 +388,7 @@ Partial Class Bancos_Transferencias
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle,
ImporteDestino, $"Transferencia entre cuentas {TxtObservaciones.Text}", 30, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, IdCtaContableDestino, -1, CveIEDestino,
ImporteMX:=If(Not UsuarioActual.CveEmpresa.Contiene(13, 83), ImporteDestino, ImporteMXDestino),
ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0), CveCuenta:=CveCuentaDestino) Then
ImporteME:=If(CveMonedaDestino > 1, ImporteDestino, 0)) Then
MsgError = "Ocurrio un error al ingresar la prepoliza"
End If

14
Contabilidad2/MovimientosconProveedores.aspx.vb
View File

@@ -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 = ViewState("CveSubProyecto").ToString().ToEntero()
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").ToString.ToEntero
End If
@@ -184,12 +184,12 @@ Partial Class MovimientosconProveedores
End If
'Dim CveSubProyecto As String
If Request("CveSubProyecto") IsNot Nothing Then
CveSubProyecto = Request("CveSubProyecto").ToString
CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero
Else
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
End If
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")

2
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

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

2
Contabilidad2/RepEstadoActividades.aspx.vb
View File

@@ -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

4
Contabilidad2/RepEstadoResultados.aspx.vb
View File

@@ -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, CveSubProyecto, UsuarioActual.CveEmpresa) 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

2
Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
View File

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

4
Finanzas/RepEstadoResultados.aspx.vb
View File

@@ -173,10 +173,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, CveSubProyecto, UsuarioActual.CveEmpresa) 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

2
Inventarios/EntregasPorRealizar.aspx.cs
View File

@@ -99,7 +99,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas
int CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
int Orden = row.DataKey("Orden").ToEntero();
if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega, Orden: Orden))
if (!ObjGeneral.AsignarEntregasPorRealizar(CvePaqueteriasGuias, CvePersonal:CvePersonal, CveAsignacionEntrega: CveAsignacionEntrega ))
{
TieneError = true;
break;

2
Inventarios/RecepcionDevolucion.aspx.vb
View File

@@ -769,7 +769,7 @@ Partial Class Inventarios_RecepcionDevolucion
ObjRemisionNC.IEPS = ImporteIEPS
ObjRemisionNC.Total = Total
ObjRemisionNC.TotalOtrosConceptos = 0
ObjRemisionNC.ObservacionesMovimiento = TxtObservaciones.Text
ObjRemisionNC.ObservacionesAlmacen = TxtObservaciones.Text
ObjRemisionNC.DtInventario = DtInventario

6
Inventarios/RepApartados2.aspx.vb
View File

@@ -38,11 +38,7 @@ Partial Class Inventarios_RepApartados2
DdlCliente.DataBind()
DdlCliente.Items.Insert(0, New ListItem(" Todos ", "-1"))
Dim DTVendedores As New DataTable
DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
DdlVendedor.DataSource = DTVendedores
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, -1)
DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1"))

1
Inventarios/RepEntregasForaneas.aspx.vb
View File

@@ -733,7 +733,6 @@ Partial Class Inventarios_RepEntregasForaneas
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))

100
Nomina/ConceptoNomina.aspx
View File

@@ -171,20 +171,20 @@
<div class="row">
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<div class="">
<asp:Label runat="server" Text="Concepto padre" AssociatedControlID="DdlConceptoPadre"></asp:Label>
<asp:DropDownList ID="DdlConceptoPadre" runat="server" AppendDataBoundItems="True" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control 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 contable" AssociatedControlID="DdlConceptoContable"></asp:Label>
<asp:DropDownList ID="DdlConceptoContable" runat="server" AppendDataBoundItems="True" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Class="form-control select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
<div class="">
<asp:Label runat="server" Text="Concepto SAT" AssociatedControlID="DdlConceptoSAT"></asp:Label>
<asp:DropDownList ID="DdlConceptoSAT" runat="server" AppendDataBoundItems="True" DataTextField="NombreClave" DataValueField="CveSATConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
</div>
<div class="row">
<div class="row " style="display: none">
<div class="col-md-6">
<div class="form-group form-md-line-input form-md-floating-label input-iconright">
<asp:Label runat="server" Text="Clasificación" AssociatedControlID="DdlClasificacion"></asp:Label>
@@ -199,23 +199,83 @@
</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="Concepto SAT" AssociatedControlID="DdlConceptoSAT"></asp:Label>
<asp:DropDownList ID="DdlConceptoSAT" runat="server" AppendDataBoundItems="True" DataTextField="NombreClave" DataValueField="CveSATConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
<asp:UpdatePanel ID="Up" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<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 del concepto </span>
</div>
<div class="actions">
<label class=" " style="margin-top: 6px; margin-bottom: 6px;">Contabiliza:</label>
<div class="btn-group">
<asp:CheckBox ID="ChkContabiliza" AutoPostBack="true" CssClass="chksino" Text=" " runat="server" />
</div>
</div>
</div>
<asp:Panel class="portlet-body rowpadding" runat="server" ID="DivCtasProvision">
<div class="row">
<div class="col-md-6">
<div class="">
<asp:Label runat="server" Text="Concepto contable" AssociatedControlID="DdlConceptoContable"></asp:Label>
<asp:DropDownList ID="DdlConceptoContable" runat="server" AppendDataBoundItems="True" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Class="form-control select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-6">
<div class="">
<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>
<div class="row">
<div class="col-md-6">
<div class="">
<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 class="col-md-6">
<label class=" " style="margin-top: 6px; margin-bottom: 6px;">Cuenta contable distinta en negativos:</label>
<asp:CheckBox ID="chkCtaImporteNegativoProv" AutoPostBack="true" CssClass="chksino" Text=" " runat="server" />
</div>
</div>
<asp:Panel class="row" runat="server" ID="Divctasnegativas">
<div class="col-md-6">
<div class="">
<asp:Label runat="server" Text="Concepto contable" AssociatedControlID="DdlConceptoContableB"></asp:Label>
<asp:DropDownList ID="DdlConceptoContableB" runat="server" AppendDataBoundItems="True" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Class="form-control select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
</div>
</div>
<div class="col-md-6">
<div class="">
<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>--%>
</asp:Panel>
</asp:Panel>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div class="col-md-5">
@@ -348,7 +408,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>

48
Nomina/ConceptoNomina.aspx.cs
View File

@@ -1,5 +1,6 @@
using Extensiones;
using System;
using System.Activities.Expressions;
using System.Collections.Generic;
using System.Data;
using System.Linq;
@@ -75,6 +76,8 @@ public partial class Nomina_CatConcepto : ClsPaginas
tree_Tables();
InicializaDatos();
}
DivCtasProvision.Visible = ChkContabiliza.Checked;
Divctasnegativas.Visible = chkCtaImporteNegativoProv.Checked;
}
#region Arboles conceptos
@@ -226,6 +229,11 @@ public partial class Nomina_CatConcepto : ClsPaginas
DdlConceptoContable.DataBind();
DdlConceptoContable.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlConceptoContable.SelectedValueExist("-1");
DdlConceptoContableB.DataSource = get_GlobalDTContaConceptosContables(-1);
DdlConceptoContableB.DataBind();
DdlConceptoContableB.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlConceptoContableB.SelectedValueExist("-1");
}
protected void CargaClasificacion()
{
@@ -260,6 +268,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
if (UsuarioActual.Empresa.TipoContabilidad == 2)
{
DdlCtaContable.DataValueField = "Id";
DdlCtaContableB.DataValueField = "Id";
using (ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa))
{
@@ -267,11 +276,15 @@ public partial class Nomina_CatConcepto : ClsPaginas
{
DdlCtaContable.DataSource = ObjConta.DtResultados;
DdlCtaContable.DataBind();
DdlCtaContableB.DataSource = ObjConta.DtResultados;
DdlCtaContableB.DataBind();
}
}
DdlCtaContable.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlCtaContable.SelectedValueExist("-1");
DdlCtaContableB.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlCtaContableB.SelectedValueExist("-1");
}
else
{
@@ -331,6 +344,15 @@ public partial class Nomina_CatConcepto : ClsPaginas
int Especie = ChkEspecie.Checked ? 1 : 0;
int Imprimir = ChkImprimir.Checked ? 1 : 0;
int CveSATConcepto = DdlConceptoSAT.SelectedValue.ToEntero();
int ctaImporteNegativoProv = (chkCtaImporteNegativoProv.Checked ? 1 : 0);
int contabiliza = (ChkContabiliza.Checked ? 1 : 0);
int CargoOAbono = ddlCargooAbono.SelectedValue.ToEntero();
int cveConceptoContableB = DdlConceptoContableB.SelectedValue.ToEntero();
int IdCtaContableB = (DdlCtaContableB.DataValueField == "Id" ? DdlCtaContableB.SelectedValue.ToEntero() : 0);
int CveCuentaB = (DdlCtaContableB.DataValueField == "Id" ? 0 : DdlCtaContableB.SelectedValue.ToEntero());
ClsNominas ObjNomina = new ClsNominas();
ObjNomina.IniciaTransacSQL();
@@ -338,7 +360,9 @@ public partial class Nomina_CatConcepto : ClsPaginas
if (EsEditar)
{
TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, UsuarioActual.CveEmpresa);
TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion,
IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto,
UsuarioActual.CveEmpresa, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB , IdCtaContableB , CveCuentaB);
if (!TieneError)
{
@@ -368,7 +392,9 @@ public partial class Nomina_CatConcepto : ClsPaginas
}
else
{
CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto);
CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir,
CveSATConcepto, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, IdCtaContableB, CveCuentaB);
@@ -460,15 +486,21 @@ public partial class Nomina_CatConcepto : ClsPaginas
if (drow["TipoCalculo"].Equals("True")) ChkTipoCalculo.Checked = true;
DdlConceptoPadre.SelectedValueExist(drow["CveConceptoPadre"]);
DdlConceptoContable.SelectedValueExist(drow["CveConceptoContable"]);
DdlConceptoContableB.SelectedValueExist(drow["CveConceptoContableB"]);
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" });
chkCtaImporteNegativoProv.Checked = drow["CtaImporteNegativoProv"].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 +511,18 @@ public partial class Nomina_CatConcepto : ClsPaginas
{
DdlCtaContable.SelectedValueExist(drow["CveCuenta"]);
}
if (DdlCtaContableB.DataValueField == "Id")
{
DdlCtaContableB.SelectedValueExist(drow["IdCtaContableB"]);
}
else
{
DdlCtaContableB.SelectedValueExist(drow["CveCuentaB"]);
}
if (ChkContabiliza.Checked && (DdlCtaContable.SelectedValue.ToEntero() <= 0 || (chkCtaImporteNegativoProv.Checked && DdlCtaContableB.SelectedValue.ToEntero() <= 0)))
{
Alert("el concepto esta marcado como contabilizable pero no estan asignadas correctamente las cuentas.", ModExtensiones.TipoMensaje.MsgAdvertencia);
}
//if (UsuarioActual.Empresa.TipoContabilidad == 1)
//{
//}

4
Nomina/Nomina.aspx.cs
View File

@@ -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");

2
Nomina/ReportePTU.aspx.vb
View File

@@ -156,7 +156,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, 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, -1, 1, -1, -1, -1, -1)
End If
If CveConcepto < 1 Then
continuar = False

9
Nomina/ReportedeAcumulados.aspx
View File

@@ -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>

53
Nomina/ReportedeAcumulados.aspx.cs
View File

@@ -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++;
libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Empleado";
libro.Cell(3, column).Value = " ";
libro.Column(column).Width = 35;
column++;
libro.Cell(1, column).Value = " ";
libro.Cell(2, column).Value = "Empleado";
libro.Cell(3, column).Value = " ";
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++;
if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
libro.Cell(Fila, column).Value = erow["Nombre"];
foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
column++;
if (newsubproyecto) { libro.Cell(Fila - 3, column).Value = string.Format("Total {0}", subproyectoold); }
if (newsubproyectoTitulo) { libro.Cell(Fila - 1, column).Value = subproyecto; subproyectoold = subproyecto; }
libro.Cell(Fila, column).Value = erow["Nombre"];
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, 3, Fila - 3, column).DataType = ClosedXML.Excel.XLDataType.Number;
libro.Range(Fila - 3, 6, Fila - 3, column).Style.NumberFormat.Format = "$###,###,##0.00";
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, 3, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
libro.Range(Fila , 6, Fila , column).Style.NumberFormat.Format = "$###,###,##0.00";
libro.Range(Fila, 6, Fila, column).DataType = ClosedXML.Excel.XLDataType.Number;
}

4
OC/OC.aspx.vb
View File

@@ -930,17 +930,13 @@ Partial Class OC_OC
Private Sub ValidaCancelacionConAlamcen()
' BtnCancelarPrevio.Visible = True
' BtnCancelarPrevio.Enabled = True
If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then
'BtnCancelarPrevio.Attributes.Remove("onclick")
BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
BtnCancelarPrevio.OnClientClick = "return false;"
'BtnCancelarPrevio.Attributes.Add("onclick", "$('#DivCancelarCompra').modal('hide')")
End If

5
OI/Circular.aspx
View File

@@ -68,11 +68,12 @@
</asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Circulares"
ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario,FechaIng" EmptyDataText="No se encontraron Circulares"
ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: left; width: 100%" GridLines="None">
<Columns>
<asp:HyperLinkField HeaderText="Asunto" DataTextField="Asunto" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" />
<asp:HyperLinkField HeaderText="Usuario" DataTextField="Usuario" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" />
<asp:HyperLinkField HeaderText="Fecha Ing." DataTextField="FechaIng" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" ItemStyle-Width="250px" />
</Columns>
</asp:GridView>
</ContentTemplate>

3
OI/Circular.aspx.vb
View File

@@ -30,7 +30,7 @@ Partial Class OI_Circular
DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
DdlUsuario.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaDatos()
Dim ObjOI As New ClsOIEventos
@@ -40,6 +40,7 @@ Partial Class OI_Circular
End If
ObjOI.Dispose()
GvDatos.DataBind()
UpDatos.Update()
End Sub
Protected Sub btConsultar_Click() Handles btConsultar.Click

28
OI/CircularDetalleB.aspx
View File

@@ -108,14 +108,14 @@
<h3 class="panel-title">Asunto</h3>
</div>
<div class="bodycorreos">
<asp:TextBox ID="TxtAsunto" runat="server" CssClass="form-control "></asp:TextBox>
<asp:TextBox ID="TxtAsunto" text="Circular " runat="server" CssClass="form-control"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvAsunto" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtAsunto" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Asunto''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCircular"></asp:RequiredFieldValidator>
</div>
</div>
<div class="pnlCorreo" style="margin-bottom: 5px;">
<div class="headerCorreo headerCorreoCCP" style="background-color: transparent;">
<div class="headerCorreo headerCorreoCCP" style="background-color: transparent; float:right;">
<h3 class="panel-title ">Adjuntar Archivos:</h3>
<asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
@@ -137,6 +137,7 @@
<div class="text-center">
<asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="true" ValidationGroup="GrpCircular" />
<asp:Button ID="BtnCancelar" PostBackUrl="Circular.aspx" runat="server" CssClass="btn btn-danger" Style="margin-left: 20px!important;" Text="Cancelar" Visible="true"/>
<asp:Button ID="BtnEliminar" OnClick="BtnEliminar_Click" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</div>
@@ -173,7 +174,7 @@
<div class="row" id="DVModalFiltrosUsuarios" visible="true" runat="server">
<div class="col-md-6">
<div class="form-group form-md-line-input">
<asp:DropDownList runat="server" ID="DdlRoles" DataValueField="CveRol" DataTextField="Rol" CssClass="select2me form-control" Width="100%" OnSelectedIndexChanged="DdlRoles_SelectedIndexChanged" AutoPostBack="true" />
<asp:DropDownList runat="server" ID="DdlRoles" DataValueField="CveRol" DataTextField="Rol" CssClass="select2me form-control" Width="100%" OnSelectedIndexChanged="DdlRoles_SelectedIndexChanged" AutoPostBack="true"/>
<asp:Label runat="server" Text="Perfil:" AssociatedControlID="DdlRoles"></asp:Label>
</div>
</div>
@@ -221,8 +222,8 @@
<div class="row" >
<div class="row col-md-12" align="right" style="margin-top:5px!important">
<input type="text" id="TxtBusquedaCorreos" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaCorreos','{0}')", GVUsuarios.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaCorreos','{0}')", GVUsuarios.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
<input type="text" id="TxtBusquedaCorreos" class="form-control input-sm" onkeyup="filtrarx()" style="display: inline-block; margin-right: -20px; width: 150px;" />
<a href="javascript:;" onclick="filtrarx()" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
</div>
@@ -315,7 +316,6 @@
function chkAll_OncLick(chk) {
$('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", chk.checked);
}
//function showhideUser() {
// // alert(CveRol);
@@ -346,12 +346,20 @@
// });
// input.addClass('ConEvento');
//}
//function ADSReady() {
function filtrarx() {
//console.log('Entre 3')
//var filtro = sotext($("div[id^='C_DVModalFiltros'] select:first").attr("id"));
//console.log(filtro)
FiltrarTablaStrMulti('<%=GVUsuarios.ClientID %>', null, sotext('<%=DdlRoles.ClientID %>'), $('#TxtBusquedaCorreos').val());
}
function ADSBegin() {
// loadeventos();
// showhideUser()
//}
}
//inicializa tablas select2me etc etc.....
function ADSReady() {
filtrarx();
}
</script>
</asp:Content>

24
OI/CircularDetalleB.aspx.cs
View File

@@ -189,7 +189,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
ClsOIEventos ObjOI = new ClsOIEventos();
if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa,DdlRoles.SelectedValue.ToEntero(),DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(),DdlClasificacion.SelectedValue.ToEntero()))
if (ObjOI.GetCircularCorreos(intTipoConsulta, UsuarioActual.CveEmpresa, -1, DdlSubProyecto.SelectedValue.ToEntero(), DdlCveClasificacionProveedor.SelectedValue.ToEntero(), DdlSubProyectoPersonal.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero()))
{
if (ObjOI.DtResultados.Rows.Count >= 1000)
@@ -203,7 +203,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
GVUsuarios.DataSource = dt;
Alert($"{ObjOI.DtResultados.Rows.Count } registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia);
Alert($"{ObjOI.DtResultados.Rows.Count} registros se limito a 2000 registros, se recomienda usar los filtros.", ModExtensiones.TipoMensaje.ToastAdventencia);
}
else
{
@@ -216,14 +216,11 @@ public partial class OI_CircularDetalleB : ClsPaginas
GVUsuarios.DataSource = null;
}
RegistraScript("CveRol = -1; CveSucursal = -1;usuariotext = \"\";");
ObjOI.Dispose();
GVUsuarios.DataBind();
UpModalSeleccionCorreos.Update();
}
protected void GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e)
@@ -301,7 +298,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
if (ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text.Replace("< ","<"), TxtCorreo.Text, TxtCorreoAdicional.Text, AdjuntoValidate))
{
GuardarArchivo(CveCircular);
Alert("Actualizado correctamente");
Alert("La circular se ha actualizado correctamente.");
}
}
else
@@ -313,7 +310,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
if (CircularInsertado > 0)
{
GuardarArchivo(CircularInsertado);
Alert("Ingresado correctamente");
Alert("La circular se ha guardado correctamente.");
CveCircular = CircularInsertado;
if (CveCircular > 0)
@@ -443,7 +440,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text);
Contador += 1;
}
Alert("El correo se envió correctamente");
Alert("El correo se envió correctamente.");
}
catch (Exception )
{
@@ -522,10 +519,13 @@ public partial class OI_CircularDetalleB : ClsPaginas
protected void DdlRoles_SelectedIndexChanged(object sender, EventArgs e)
{
ConsultaCorreos();
}
//ConsultaCorreos();
// Filtro las filas según el dropdown option
//RegistraScript("console.log('Entre 1')");
//RegistraScript($"FiltrarTablaStrMulti('{GVUsuarios.ClientID}', null, sotext('{DdlRoles.ClientID}'), $('#TxtBusquedaCorreos').val());");
}
protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e)
protected void DdlSubProyecto_SelectedIndexChanged(object sender, EventArgs e)
{
ConsultaCorreos();
}
@@ -542,7 +542,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e)
{
// ConsultaCorreos();
ConsultaCorreos();
}
protected void LnlActualizarCorreos_Click(object sender, EventArgs e)

2
OI/RepTareas3.aspx.cs
View File

@@ -17,6 +17,6 @@ public partial class OI_RepTareas3 : System.Web.UI.Page
protected void LnkAddEvento_Click(object sender, EventArgs e)
{
RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar));
//RegistraScript(string.Format("$('#{0}').modal()", iddivAgregar));
}
}

2
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -78,7 +78,7 @@ Partial Class OS_CatEstatusOrdenServicio
Public Sub CargaDatos()
DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
Using ObjEstatusOrdenServicios As New ClsOS
If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then
DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GvDatos.DataSource = DtEstatusOS
GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados

4
Prospectos/CatEventosEstructuras.aspx.vb
View File

@@ -14,7 +14,7 @@ Partial Class Prospectos_CatEventosEstructuras
CargaEventoTipo()
CargaDatos()
CargaAnfitrion(DdlAnfitrion)
DdlMunicipio.DataSource = GlobalDTGralMunicipios(26)
DdlMunicipio.DataSource = GlobalDTGralMunicipios("26")
DdlMunicipio.DataBind()
End If
End Sub
@@ -102,7 +102,7 @@ Partial Class Prospectos_CatEventosEstructuras
e.Row.FCDropDownList("DdlEventoTipo").DataBind()
e.Row.FCDropDownList("DdlEventoTipo").SelectedValue = e.Row.DBCampo("CveEventoTipo")
e.Row.FCDropDownList("DdlMunicipio").DataSource = GlobalDTGralMunicipios(26)
e.Row.FCDropDownList("DdlMunicipio").DataSource = GlobalDTGralMunicipios("26")
e.Row.FCDropDownList("DdlMunicipio").DataBind()
e.Row.FCDropDownList("DdlMunicipio").SelectedValue = e.Row.DBCampo("CveMunicipio")

2
Prospectos/CatProspectosRedesMetas.aspx.vb
View File

@@ -35,7 +35,7 @@ Partial Class Prospectos_CatProspectosRedesMetas
DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind()
DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
CargaDatos()

8
Prospectos/Prospectos.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class Prospectos_Prospectos
DdlPaises.SelectedValue = "1"
DdlEmpresaPaises.SelectedValue = "1"
DdlEmpresaPaises.DataSource = GlobalDTGralPaises : DdlEmpresaPaises.DataBind()
DdlFiscalEstados.DataSource = GlobalDTGralEstados(1) : DdlFiscalEstados.DataBind()
DdlFiscalEstados.DataSource = GlobalDTGralEstados("1") : DdlFiscalEstados.DataBind()
'DdlMunicipios.DataSource = GlobalDTGralMunicipios : DdlMunicipios.DataBind()
@@ -88,7 +88,7 @@ Partial Class Prospectos_Prospectos
CargaDatos()
'Configuración de Modalidad Update
BtnGuardar.Text = "Guardar Cambios"
LtlTitulo.Text = "Consulta del Prospecto:"
LtlTitulo.Text = "Consulta del Prospecto: "
'ImgAddObs.Attributes.Add("onclick", "javascript:$('#DivEventoBitacora').show(1000); PosicionaObjeto(this.id,'DivEventoBitacora');")
'Else
@@ -337,11 +337,11 @@ Partial Class Prospectos_Prospectos
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
End Sub
Protected Sub CargaCaracteristicas()

4
Prospectos/ProspectosEstructuras.aspx.vb
View File

@@ -208,11 +208,11 @@ Partial Class Prospectos_ProspectosEstructuras
End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

4
Prospectos/ProspectosRedes.aspx.vb
View File

@@ -201,11 +201,11 @@ Partial Class Prospectos_ProspectosRedes
End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

2
Prospectos/RedesArbol.aspx.vb
View File

@@ -36,7 +36,7 @@ Partial Class Prospectos_RedesArbol
DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind()
DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
CargaDatos(True)
ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")

4
Prospectos/RedesEncuestas.aspx.vb
View File

@@ -155,11 +155,11 @@ Partial Class Prospectos_RedesEncuestas
End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind()
ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind()
ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

38
RH/CatTurno.aspx
View File

@@ -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>
@@ -47,12 +47,19 @@
</table>
<asp:GridView ID="GvTurno" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
EmptyDataText="No se encontraron registros" ToolTip="Listado de Turnos" data-tableheader="#thheader"
DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta">
DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Comida,ComidaDe,ComidaA,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" />
@@ -118,6 +125,31 @@
<ajax:ValidatorCalloutExtender ID="VCOHorarioA2" runat="server" HighlightCssClass="vco" TargetControlID="MEVHorarioA"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtHorarioDe.ClientID.ToString()%>">Hora de Salida:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" />
<label for="<%= chkComida.ClientID.ToString()%>">Con Horario de comida:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVComidade" runat="server" ControlToValidate="TxtComidade" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOComidade1" runat="server" HighlightCssClass="vco" TargetControlID="RFVComidade" Width="300px"></ajax:ValidatorCalloutExtender>
<ajax:MaskedEditExtender ID="MEEComidade" runat="server" TargetControlID="TxtComidade" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
<ajax:MaskedEditValidator ID="MEVComidade" runat="server" ControlExtender="MEEComidade" ControlToValidate="TxtComidade" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
<ajax:ValidatorCalloutExtender ID="VCOComidade2" runat="server" HighlightCssClass="vco" TargetControlID="MEVComidade"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtComidade.ClientID.ToString()%>">Hora de Comida Entrada:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtComidaA" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
<asp:RequiredFieldValidator ID="RFVComidaA" runat="server" ControlToValidate="TxtComidaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCOComidaA1" runat="server" HighlightCssClass="vco" TargetControlID="RFVComidaA" Width="300px"></ajax:ValidatorCalloutExtender>
<ajax:MaskedEditExtender ID="MEEComidaA" runat="server" TargetControlID="TxtComidaA" Mask="99:99:99" MaskType="Time" InputDirection="RightToLeft"></ajax:MaskedEditExtender>
<ajax:MaskedEditValidator ID="MEVComidaA" runat="server" ControlExtender="MEEComidaA" ControlToValidate="TxtComidaA" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Hr. Entrada''</b> no tiene el formato correcto, por favor corrija (Formato 24 Horas)." IsValidEmpty="true" MaximumValue="23:59:59" MinimumValue="00:00:00" ToolTip="Formato 24 Horas" ValidationGroup="GrpObligatorio"></ajax:MaskedEditValidator>
<ajax:ValidatorCalloutExtender ID="VCOComidaA2" runat="server" HighlightCssClass="vco" TargetControlID="MEVComidaA"></ajax:ValidatorCalloutExtender>
<label for="<%= TxtComidaA.ClientID.ToString()%>">Hora de Comida Salida:</label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox>
<asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label>

45
RH/CatTurno.aspx.vb
View File

@@ -27,7 +27,7 @@ Partial Class RH_CatTurno
End Sub
Private Sub CargaDatos()
Dim ObjRH As New ClsRH()
If ObjRH.GetTurnos Then
If ObjRH.GetTurnos(UsuarioActual.CveEmpresa) Then
GvTurno.DataSource = ObjRH.DtResultados.FiltraParametros(" CveEmpresa =" & UsuarioActual.CveEmpresa)
GvTurno.DataBind()
End If
@@ -36,26 +36,28 @@ Partial Class RH_CatTurno
End Sub
Private Sub BtnAgregarTurno_Click(sender As Object, e As EventArgs) Handles BtnAgregarTurno.Click
Dim ObjRH As New ClsRH
Dim Estatus As Boolean = False
If ChkEstatus.Checked Then Estatus = True
If HdnModalidad.Value = "A" Then
If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero()) Then
CargaDatos()
CargaGlobalDTTurno()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
Using ObjRH As New ClsRH
Dim Estatus As Boolean = False
Dim comida As Integer = If(chkComida.Checked, 1, 0)
If ChkEstatus.Checked Then Estatus = True
If HdnModalidad.Value = "A" Then
If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then
CargaDatos()
CargaGlobalDTTurno()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If
ElseIf HdnModalidad.Value = "U" Then
If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(),
TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then
CargaDatos()
CargaGlobalDTTurno()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If
End If
ElseIf HdnModalidad.Value = "U" Then
If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(),
TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero()) Then
CargaDatos()
CargaGlobalDTTurno()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If
End If
End Using
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddTurno"))
ObjRH.Dispose()
UpDatos.Update()
End Sub
@@ -75,6 +77,11 @@ Partial Class RH_CatTurno
TxtFretardo.Text = (GvRow.DataKey("ToleranciaEFalta2").ToEntero()).ToString()
TxtFsalida.Text = GvRow.DataKey("ToleranciaSFalta")
ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus"))
chkComida.Checked = (GvRow.DataKey("Comida") = "1")
TxtComidade.Text = GvRow.DataKey("ComidaDe")
TxtComidaA.Text = GvRow.DataKey("ComidaA")
UpAddTurno.Update()
'CargaGlobalDTTurno()

41
Scripts/custom.js
View File

@@ -69,6 +69,15 @@ function alertatoast(tipo, Mensaje, Funcion, timeout) {
function log(mensaje) {
console.log(mensaje);
}
function soval(dropdown) {
return $('option:selected', '#' + dropdown).val();
}
function sotext(dropdown) {
return $('option:selected', '#' + dropdown).text();
}
function FiltrarTabla(idtxt, idtable, idcontador) {
if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); }
else {
@@ -79,6 +88,38 @@ function FiltrarTabla(idtxt, idtable, idcontador) {
$('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
}
}
function FiltrarTablaStr(str, idtable, idcontador) {
if (str == '' || str == 'Todos') { $('table#' + idtable + ' tr').css('display', ''); }
else {
$('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none');
$('table#' + idtable + ' tr:contains("' + str + '")').css('display', '');
$('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', '');
}
if ($('#' + idcontador).length > 0) {
$('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
}
}
function FiltrarTablaStrMulti(idtable, idcontador /*, str1, str2, str3...*/ ) {
if (arguments.length <= 2) { return; }
let strc = '';
for (let i = 2 /*a partir del 3er argumento obtiene los str*/; i < arguments.length; i++) {
let str = arguments[i];
if (str != '' && str != 'Todos') {
strc += ':contains("' + str + '")';
}
}
$('table#' + idtable + ' tr:not(.ADtr)').css('display', 'none');
$('table#' + idtable + ' tr' + strc).css('display', '');
$('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', '');
if (idcontador) {
if ($('#' + idcontador).length > 0) {
$('#' + idcontador).html($('#' + idtable + ' tr:visible').length);
}
}
}
function FiltrarTablaClass(idtxt, idtable, idcontador, resta) {
if (resta == null) {
resta =1

4
Ventas/Clientes.aspx
View File

@@ -4582,7 +4582,7 @@
<asp:GridView ID="GvLineasAdicionales" Width="100%" runat="server" GridLines="None"
DataKeyNames="CveLineaAdicional,LineaAdicional,CveCliente,CveProveedor,TipoLinea,Importe,CveMoneda,FechaVencimiento,CveUsuario,CveCategoria,FechaIng,CveLineaAdicionalEstatus,Proveedor,DiasVencimiento"
CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns>
@@ -4874,7 +4874,7 @@
<div class="portlet-body">
<asp:UpdatePanel ID="UPEventoBitacora" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:Button ID="btnupEventoBitacora" OnClick="btnupEventoBitacora_Click" UseSubmitBehavior="false" CssClass="hidden btnupEventoBitacora" runat="server" Text="Button" />
<asp:Button ID="btnupEventoBitacora" OnClick="btnupEventoBitacora_Click" UseSubmitBehavior="false" CssClass="hidden btnupEventoBitacora mysmallbtn" runat="server" Text="Button" />
<asp:GridView ID="GvEB" runat="server" AutoGenerateColumns="False" EmptyDataText="No se han capturado comentarios o bitácora" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
<Columns>
<asp:TemplateField>

16
Ventas/Clientes.aspx.vb
View File

@@ -1130,10 +1130,6 @@ Partial Class Clientes
End If
End If
ObjCliente.Dispose()
DdlSucursalCliente.DataBind()
@@ -1148,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
@@ -1161,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
@@ -1512,7 +1504,7 @@ Partial Class Clientes
' CargaDocs()
CargaCombos()
CargaDocumentacionCliente()
CargaSubProyectosSuscursales()
'CargaSubProyectosSuscursales()
'CargaMetodosPago33()
'CargaFormaPago33()
'CargaComboCFDI()

4
Ventas/ClientesAbonar.aspx.vb
View File

@@ -827,7 +827,7 @@ Partial Class Ventas_ClientesAbonar
CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero
End If
CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
CvePrePoliza = ObjMov.AddPrePolizas("Ventas/ClientesAbonar", 11, TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If RblTipoPago.SelectedValue = "1" Then
Dim CveCuentaDeposito As Integer = 0
@@ -1151,7 +1151,7 @@ Partial Class Ventas_ClientesAbonar
Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL
Dim IdCtaContable As Integer = 0
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, IdCtaContable, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 134, VentaActual.SerieFolio, VentaActual.SerieFolio, VentaActual.IdCtaContableCliente, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveSubProyecto:=CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero) Then
MsgError = "No se pudo insertar la póliza"
End If
End If

2
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -180,7 +180,7 @@ Partial Class RepVentaDetalle
DdlCondicionesPago.SelectedValueExist(CveCondicionesPago)
DdlProyecto.SelectedValueExist(CveProyecto)
If DivProyecto.Visible Then CargaSubProyecto()
'If DivProyecto.Visible Then CargaSubProyecto()
DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion)
DdlVendedor.SelectedValuesIfExistM(CveVendedor)

4
Ventas/Ventas.aspx.vb
View File

@@ -25922,7 +25922,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)
@@ -35392,7 +35392,7 @@ Partial Class Ventas
DdlRegimenFiscalCliente.DataBind()
Else
Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
Dim Val As String
Dim Val As String = ""
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
'verifico que sino existe el valor. lo limpie