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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-02-13 05:51:10 -07:00
parent fab3e90b57 c118f9c317
commit e9e178a4de
30 changed files with 138 additions and 160 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 'Carga Globals para DT
CargaTiposActivosFijos() CargaTiposActivosFijos()
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() ''CargaCaracteristicasClasificaciones()
CargaCaracteristicas() 'CargaCaracteristicas()
End If End If
End Sub End Sub
@@ -77,30 +77,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
ObjAF.Dispose() ObjAF.Dispose()
End Sub 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" #Region "CLASIFICACIONES"
Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click Protected Sub LbAgregarCL_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCL.Click
Dim ObjCaracteristicaClasificacion As New ClsAF Dim ObjCaracteristicaClasificacion As New ClsAF
@@ -111,7 +87,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
UpTitulosCL.Update() UpTitulosCL.Update()
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones()
If ViewState("OrdenCL").ToString() <> String.Empty Then If ViewState("OrdenCL").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCL").ToString(), 0) CargaGrid(ViewState("OrdenCL").ToString(), 0)
@@ -126,16 +101,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
#Region "CARGA DATOS" #Region "CARGA DATOS"
Public Sub CargaDatosCL() 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 If ViewState("OrdenCL").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCL").ToString(), 0) CargaGrid(ViewState("OrdenCL").ToString(), 0)
Else Else
@@ -184,7 +149,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
GvDatosCL.EditIndex = -1 GvDatosCL.EditIndex = -1
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() 'CargaCaracteristicasClasificaciones()
Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -219,7 +184,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
GvDatosCL.EditIndex = -1 GvDatosCL.EditIndex = -1
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() 'CargaCaracteristicasClasificaciones()
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
@@ -267,8 +232,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
CargaCaracteristicasClasificaciones() ''CargaCaracteristicasClasificaciones()
CargaCaracteristicas() 'CargaCaracteristicas()
If ViewState("OrdenCA").ToString() <> String.Empty Then If ViewState("OrdenCA").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCA").ToString(), 1) CargaGrid(ViewState("OrdenCA").ToString(), 1)
@@ -281,16 +246,6 @@ Partial Class AF_CatClasificacionesCaracteristicas
#Region " CARGA DATOS" #Region " CARGA DATOS"
Public Sub CargaDatosCA() 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 If ViewState("OrdenCA").ToString() <> String.Empty Then
CargaGrid(ViewState("OrdenCA").ToString(), 1) CargaGrid(ViewState("OrdenCA").ToString(), 1)
Else Else
@@ -301,7 +256,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
End Sub End Sub
Private Sub CargaClasificacionesCA() Private Sub CargaClasificacionesCA()
DdlClasificacionesCA.Items.Clear() 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() DdlClasificacionesCA.DataBind()
UpdatePanel1.Update() UpdatePanel1.Update()
End Sub End Sub
@@ -374,8 +329,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
Dim ObjCaracteristicas As New ClsAF Dim ObjCaracteristicas As New ClsAF
If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then If ObjCaracteristicas.RemoveCaracteristica(GvDatosCA.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
GvDatosCA.EditIndex = -1 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) Alert("La Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If 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 If ObjCaracteristicas.UpdateCaracteristica(CveCaracteristicaClasificacion, Caracteristica, CveTipoActivoFijo, CveSubTipoActivoFijo, TipoCampo, Longitud, CBool(Requerida), Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then
GvDatosCA.EditIndex = -1 GvDatosCA.EditIndex = -1
ViewState("DTCatacteristica") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
CargaSubTiposActivosFijos() CargaSubTiposActivosFijos()
@@ -521,7 +475,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
DdlCaracteristicaOpciones.Items.Clear() DdlCaracteristicaOpciones.Items.Clear()
'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero) '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)) 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.DataBind()
DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlCaracteristicaOpciones.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub 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").Items.Insert(0, New ListItem("Todos", "-1"))
e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo") 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() e.Row.FCDropDownList("DdlCaracteristicasOpciones").DataBind()
FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones")) FiltraCaracteristicas1(e.Row.FCDropDownList("DdlTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlSubTiposActivosFijosOpciones"), e.Row.FCDropDownList("DdlCaracteristicasOpciones"))
e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica") e.Row.FCDropDownList("DdlCaracteristicasOpciones").SelectedValue = e.Row.DBCampo("CveCaracteristica")
@@ -691,7 +645,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
ddlC.Items.Clear() ddlC.Items.Clear()
'Dim Filtro = String.Format("CveCaracteristicaClasificacion = {0} AND ", DdlClasificacionesOpciones.SelectedValue.ToEntero) '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)) 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.DataBind()
ddlC.Items.Insert(0, New ListItem("Seleccione", "-1")) ddlC.Items.Insert(0, New ListItem("Seleccione", "-1"))
End Sub End Sub
@@ -742,21 +696,17 @@ Partial Class AF_CatClasificacionesCaracteristicas
Private Sub CargaGrid(Orden As String, gvi As Integer) Private Sub CargaGrid(Orden As String, gvi As Integer)
If gvi = 0 Then If gvi = 0 Then
If Orden <> String.Empty 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 Else
GvDatosCL.DataSource = CType(ViewState("DTCaracteristicaClasificacion"), DataTable) GvDatosCL.DataSource = GlobalDTAFCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
End If End If
GvDatosCL.DataBind() GvDatosCL.DataBind()
UpDatosCL.Update() UpDatosCL.Update()
ElseIf gvi = 1 Then ElseIf gvi = 1 Then
If Orden <> String.Empty 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 Else
GvDatosCA.DataSource = CType(ViewState("DTCatacteristica"), DataTable) GvDatosCA.DataSource = GlobalDTAFCaracteristicas(UsuarioActual.CveEmpresa)
End If End If
GvDatosCA.DataBind() GvDatosCA.DataBind()
UpDatosCA.Update() UpDatosCA.Update()

3
App_Code/ClsContabilidad.vb
View File

@@ -3843,6 +3843,8 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function 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 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 Dim Retorno = False
@@ -5533,6 +5535,7 @@ Public Class ClsContabilidad
Return Retorno Return Retorno
End Function 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 Public Function GetEstadoActividades(FechaI As Date, FechaF As Date, CveEmpresa As Integer, Optional TipoMovtos As Integer = -1) As Boolean
Dim Retorno = False Dim Retorno = False

4
Bancos/ConciliacionesBancarias.aspx.vb
View File

@@ -638,14 +638,14 @@ Partial Class Bancos_ConciliacionesBancariasaspx
End If End If
End If End If
If CveCuenta > 0 Then 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 If ObjConta.DtResultados.Rows.Count > 1 Then
SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble SaldoFinalContabilidad = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
End If End If
End If End If
End If End If
If CveCuentaComplementaria > 0 Then 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 If ObjConta.DtResultados.Rows.Count > 1 Then
SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble SaldoFinalContabilidadComplementaria = ObjConta.DtResultados.Rows(1)("SaldoActual").ToString.ToDouble
End If End If

4
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -313,7 +313,7 @@ Partial Class Bancos_FluctuacionCambiaria
Dim Total As Decimal = 0 Dim Total As Decimal = 0
Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero
If CveCuentaExtranjera > 0 Then 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 If Conta.DtResultados.Rows.Count > 1 Then
Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
End If End If
@@ -324,7 +324,7 @@ Partial Class Bancos_FluctuacionCambiaria
Dim SaldoActualContabilidad As Decimal = 0 Dim SaldoActualContabilidad As Decimal = 0
Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero
If CveCuentaComplementaria > 0 Then 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 If Conta.DtResultados.Rows.Count > 1 Then
SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
End If End If

15
Bancos/Transferencias.aspx.vb
View File

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

12
Contabilidad2/MovimientosconProveedores.aspx.vb
View File

@@ -52,11 +52,11 @@ Partial Class MovimientosconProveedores
ViewState("DTCuentas") = value ViewState("DTCuentas") = value
End Set End Set
End Property End Property
Private Property CveSubProyecto As String Private Property CveSubProyecto As Integer
Get Get
CveSubProyecto = ViewState("CveSubProyecto").ToString CveSubProyecto = ViewState("CveSubProyecto").ToString
End Get End Get
Set(value As String) Set(value As Integer)
ViewState("CveSubProyecto") = value ViewState("CveSubProyecto") = value
End Set End Set
End Property End Property
@@ -108,7 +108,7 @@ Partial Class MovimientosconProveedores
End If End If
If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
CveSubProyecto = Request("CveSubProyecto").ToString CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero
End If End If
@@ -184,12 +184,12 @@ Partial Class MovimientosconProveedores
End If End If
'Dim CveSubProyecto As String 'Dim CveSubProyecto As String
If Request("CveSubProyecto") IsNot Nothing Then If Request("CveSubProyecto") IsNot Nothing Then
CveSubProyecto = Request("CveSubProyecto").ToString CveSubProyecto = Request("CveSubProyecto").ToString.ToEntero
Else Else
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
End If 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 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") DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")

4
Contabilidad2/RepEstadoResultados.aspx.vb
View File

@@ -177,10 +177,10 @@ Partial Class Contabilidad2_RepEstadoResultados
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) '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 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)") DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatos = Nothing DtDatos = Nothing

4
Finanzas/RepEstadoResultados.aspx.vb
View File

@@ -173,10 +173,10 @@ Partial Class Contabilidad2_RepEstadoResultados
TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) '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 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)") DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatos = Nothing 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 CvePaqueteriasGuias = row.DataKey("CvePaqueteriaGuia").ToEntero();
int Orden = row.DataKey("Orden").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; TieneError = true;
break; break;

2
Inventarios/RecepcionDevolucion.aspx.vb
View File

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

6
Inventarios/RepApartados2.aspx.vb
View File

@@ -38,11 +38,7 @@ Partial Class Inventarios_RepApartados2
DdlCliente.DataBind() DdlCliente.DataBind()
DdlCliente.Items.Insert(0, New ListItem(" Todos ", "-1")) DdlCliente.Items.Insert(0, New ListItem(" Todos ", "-1"))
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, -1)
Dim DTVendedores As New DataTable
DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True)
DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False))
DdlVendedor.DataSource = DTVendedores
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem(" Todos ", "-1")) 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") Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) 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) 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)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))

5
OI/Circular.aspx
View File

@@ -68,11 +68,12 @@
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Circulares" <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: center; width: 100%" GridLines="None"> 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> <Columns>
<asp:HyperLinkField HeaderText="Asunto" DataTextField="Asunto" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalleB.aspx?CveCircular={0}" /> <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="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> </Columns>
</asp:GridView> </asp:GridView>
</ContentTemplate> </ContentTemplate>

3
OI/Circular.aspx.vb
View File

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

28
OI/CircularDetalleB.aspx
View File

@@ -108,14 +108,14 @@
<h3 class="panel-title">Asunto</h3> <h3 class="panel-title">Asunto</h3>
</div> </div>
<div class="bodycorreos"> <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> <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> </div>
<div class="pnlCorreo" style="margin-bottom: 5px;"> <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> <h3 class="panel-title ">Adjuntar Archivos:</h3>
<asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox> <asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
@@ -137,6 +137,7 @@
<div class="text-center"> <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="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" /> <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> </div>
@@ -173,7 +174,7 @@
<div class="row" id="DVModalFiltrosUsuarios" visible="true" runat="server"> <div class="row" id="DVModalFiltrosUsuarios" visible="true" runat="server">
<div class="col-md-6"> <div class="col-md-6">
<div class="form-group form-md-line-input"> <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> <asp:Label runat="server" Text="Perfil:" AssociatedControlID="DdlRoles"></asp:Label>
</div> </div>
</div> </div>
@@ -221,8 +222,8 @@
<div class="row" > <div class="row" >
<div class="row col-md-12" align="right" style="margin-top:5px!important"> <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;" /> <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="<%= 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> <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>
</div> </div>
@@ -315,7 +316,6 @@
function chkAll_OncLick(chk) { function chkAll_OncLick(chk) {
$('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", chk.checked); $('.GVUsuarios tr:visible input[type="checkbox"]').prop("checked", chk.checked);
} }
//function showhideUser() { //function showhideUser() {
// // alert(CveRol); // // alert(CveRol);
@@ -346,12 +346,20 @@
// }); // });
// input.addClass('ConEvento'); // 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(); // loadeventos();
// showhideUser() // showhideUser()
//} }
//inicializa tablas select2me etc etc.....
function ADSReady() {
filtrarx();
}
</script> </script>
</asp:Content> </asp:Content>

24
OI/CircularDetalleB.aspx.cs
View File

@@ -189,7 +189,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
ClsOIEventos ObjOI = new ClsOIEventos(); 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) if (ObjOI.DtResultados.Rows.Count >= 1000)
@@ -203,7 +203,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
GVUsuarios.DataSource = dt; 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 else
{ {
@@ -216,14 +216,11 @@ public partial class OI_CircularDetalleB : ClsPaginas
GVUsuarios.DataSource = null; GVUsuarios.DataSource = null;
} }
RegistraScript("CveRol = -1; CveSucursal = -1;usuariotext = \"\";"); RegistraScript("CveRol = -1; CveSucursal = -1;usuariotext = \"\";");
ObjOI.Dispose(); ObjOI.Dispose();
GVUsuarios.DataBind(); GVUsuarios.DataBind();
UpModalSeleccionCorreos.Update(); UpModalSeleccionCorreos.Update();
} }
protected void GVUsuarios_RowDataBound(object sender, GridViewRowEventArgs e) 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)) if (ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text.Replace("< ","<"), TxtCorreo.Text, TxtCorreoAdicional.Text, AdjuntoValidate))
{ {
GuardarArchivo(CveCircular); GuardarArchivo(CveCircular);
Alert("Actualizado correctamente"); Alert("La circular se ha actualizado correctamente.");
} }
} }
else else
@@ -313,7 +310,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
if (CircularInsertado > 0) if (CircularInsertado > 0)
{ {
GuardarArchivo(CircularInsertado); GuardarArchivo(CircularInsertado);
Alert("Ingresado correctamente"); Alert("La circular se ha guardado correctamente.");
CveCircular = CircularInsertado; CveCircular = CircularInsertado;
if (CveCircular > 0) 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); MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text);
Contador += 1; Contador += 1;
} }
Alert("El correo se envió correctamente"); Alert("El correo se envió correctamente.");
} }
catch (Exception ) catch (Exception )
{ {
@@ -522,10 +519,13 @@ public partial class OI_CircularDetalleB : ClsPaginas
protected void DdlRoles_SelectedIndexChanged(object sender, EventArgs e) 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(); ConsultaCorreos();
} }
@@ -542,7 +542,7 @@ public partial class OI_CircularDetalleB : ClsPaginas
protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e) protected void DdlClasificacion_SelectedIndexChanged(object sender, EventArgs e)
{ {
// ConsultaCorreos(); ConsultaCorreos();
} }
protected void LnlActualizarCorreos_Click(object sender, EventArgs e) 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) 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() Public Sub CargaDatos()
DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
Using ObjEstatusOrdenServicios As New ClsOS 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)) DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GvDatos.DataSource = DtEstatusOS GvDatos.DataSource = DtEstatusOS
GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados

4
Prospectos/CatEventosEstructuras.aspx.vb
View File

@@ -14,7 +14,7 @@ Partial Class Prospectos_CatEventosEstructuras
CargaEventoTipo() CargaEventoTipo()
CargaDatos() CargaDatos()
CargaAnfitrion(DdlAnfitrion) CargaAnfitrion(DdlAnfitrion)
DdlMunicipio.DataSource = GlobalDTGralMunicipios(26) DdlMunicipio.DataSource = GlobalDTGralMunicipios("26")
DdlMunicipio.DataBind() DdlMunicipio.DataBind()
End If End If
End Sub End Sub
@@ -102,7 +102,7 @@ Partial Class Prospectos_CatEventosEstructuras
e.Row.FCDropDownList("DdlEventoTipo").DataBind() e.Row.FCDropDownList("DdlEventoTipo").DataBind()
e.Row.FCDropDownList("DdlEventoTipo").SelectedValue = e.Row.DBCampo("CveEventoTipo") 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").DataBind()
e.Row.FCDropDownList("DdlMunicipio").SelectedValue = e.Row.DBCampo("CveMunicipio") 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() DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind() DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.DataBind()
DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios(26) : DdlMunicipioFiltro.DataBind() DdlMunicipioFiltro.DataSource = GlobalDTGralMunicipios("26") : DdlMunicipioFiltro.DataBind()
CargaDatos() CargaDatos()

8
Prospectos/Prospectos.aspx.vb
View File

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

4
Prospectos/ProspectosEstructuras.aspx.vb
View File

@@ -208,11 +208,11 @@ Partial Class Prospectos_ProspectosEstructuras
End Sub End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
End Sub End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
End Sub End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click 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 End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
End Sub End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
End Sub End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click 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() DdlClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlClasificacion.DataBind()
DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind() DdlZona.DataSource = GlobalDTProspectosSupervisores(UsuarioActual.CveEmpresa) : DdlZona.DataBind()
DdlRegion.DataSource = GlobalDTProspectosCoordinadores(DdlZona.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) : DdlRegion.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) CargaDatos(True)
ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');") 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 End Sub
Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer) Private Sub CargaEstados(ddl As DropDownList, CvePais As Integer)
ddl.DataSource = GlobalDTGralEstados(CvePais) : ddl.DataBind() ddl.DataSource = GlobalDTGralEstados(CvePais.ToString) : ddl.DataBind()
End Sub End Sub
Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer) Private Sub CargaMunicipios(ddl As DropDownList, CveEstado As Integer)
ddl.DataSource = GlobalDTGralMunicipios(CveEstado) : ddl.DataBind() ddl.DataSource = GlobalDTGralMunicipios(CveEstado.ToString) : ddl.DataBind()
End Sub End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click

41
Scripts/custom.js
View File

@@ -69,6 +69,15 @@ function alertatoast(tipo, Mensaje, Funcion, timeout) {
function log(mensaje) { function log(mensaje) {
console.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) { function FiltrarTabla(idtxt, idtable, idcontador) {
if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); } if ($('#' + idtxt).val() == '') { $('table#' + idtable + ' tr').css('display', ''); }
else { else {
@@ -79,6 +88,38 @@ function FiltrarTabla(idtxt, idtable, idcontador) {
$('#' + idcontador).html($('#' + idtable + ' tr:visible').length); $('#' + 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) { function FiltrarTablaClass(idtxt, idtable, idcontador, resta) {
if (resta == null) { if (resta == null) {
resta =1 resta =1

4
Ventas/Clientes.aspx
View File

@@ -4582,7 +4582,7 @@
<asp:GridView ID="GvLineasAdicionales" Width="100%" runat="server" GridLines="None" <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" 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"> AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
<Columns> <Columns>
@@ -4874,7 +4874,7 @@
<div class="portlet-body"> <div class="portlet-body">
<asp:UpdatePanel ID="UPEventoBitacora" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPEventoBitacora" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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"> <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> <Columns>
<asp:TemplateField> <asp:TemplateField>

16
Ventas/Clientes.aspx.vb
View File

@@ -1130,10 +1130,6 @@ Partial Class Clientes
End If End If
End If End If
ObjCliente.Dispose() ObjCliente.Dispose()
DdlSucursalCliente.DataBind() DdlSucursalCliente.DataBind()
@@ -1148,9 +1144,9 @@ Partial Class Clientes
DdlClienteSucursalEnvio.DataBind() DdlClienteSucursalEnvio.DataBind()
DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlClienteSucursalEnvio.SelectedValue = "-1" DdlClienteSucursalEnvio.SelectedValue = "-1"
End Sub
Private Sub CargaSubProyectosSuscursales()
CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
End Sub End Sub
Private Sub CargaGridRetenciones() Private Sub CargaGridRetenciones()
Dim ObjClientes As New ClsClientes Dim ObjClientes As New ClsClientes
@@ -1161,10 +1157,6 @@ Partial Class Clientes
ObjClientes.Dispose() ObjClientes.Dispose()
GvRetenciones.DataBind() GvRetenciones.DataBind()
End Sub End Sub
Private Sub CargaCuentasEquipos() Private Sub CargaCuentasEquipos()
Dim Objeto As New ClsGenerales Dim Objeto As New ClsGenerales
If Objeto.GetCuentasEquipos(CveCliente, -1) Then If Objeto.GetCuentasEquipos(CveCliente, -1) Then
@@ -1512,7 +1504,7 @@ Partial Class Clientes
' CargaDocs() ' CargaDocs()
CargaCombos() CargaCombos()
CargaDocumentacionCliente() CargaDocumentacionCliente()
CargaSubProyectosSuscursales() 'CargaSubProyectosSuscursales()
'CargaMetodosPago33() 'CargaMetodosPago33()
'CargaFormaPago33() 'CargaFormaPago33()
'CargaComboCFDI() 'CargaComboCFDI()

4
Ventas/ClientesAbonar.aspx.vb
View File

@@ -827,7 +827,7 @@ Partial Class Ventas_ClientesAbonar
CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero CveMoneda = IfNull(Request("CveMoneda"), "1").ToString.ToEntero
End If 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 If RblTipoPago.SelectedValue = "1" Then
Dim CveCuentaDeposito As Integer = 0 Dim CveCuentaDeposito As Integer = 0
@@ -1151,7 +1151,7 @@ Partial Class Ventas_ClientesAbonar
Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioPago).RoundSQL
Dim IdCtaContable As Integer = 0 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" MsgError = "No se pudo insertar la póliza"
End If End If
End If End If

2
Ventas/Ventas.aspx.vb
View File

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