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

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

Browse Source
This commit is contained in:
Raul Pimienta
2019-08-27 15:36:00 -07:00
parent dade0dcc34 1cee95c506
commit f01f6ed68d
8 changed files with 31 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsPaginas.vb
View File

@@ -1355,12 +1355,12 @@ Public Class ClsPaginas
Application("GlobalDTTipoTransacciones") = value Application("GlobalDTTipoTransacciones") = value
End Set End Set
End Property End Property
Property GlobalDTEstatusIE() As DataTable Property GlobalDTBancosEstatusIE() As DataTable
Get Get
GlobalDTEstatusIE = DirectCast(Application("GlobalDTEstatusIE"), DataTable) GlobalDTBancosEstatusIE = DirectCast(Application("GlobalDTBancosEstatusIE"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Application("GlobalDTEstatusIE") = value Application("GlobalDTBancosEstatusIE") = value
End Set End Set
End Property End Property
Property GlobalDTBancosIE() As DataTable Property GlobalDTBancosIE() As DataTable

16
Bancos/CatBancosEstatusIE.aspx.vb
View File

@@ -25,8 +25,8 @@ Partial Class Bancos_CatBancosEstatusIE
Dim ObjEstatusIE As New ClsBancos Dim ObjEstatusIE As New ClsBancos
If ObjEstatusIE.GetBancos_EstatusIE() Then If ObjEstatusIE.GetBancos_EstatusIE() Then
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Else Else
Me.GvDatos.DataSource = Nothing Me.GvDatos.DataSource = Nothing
End If End If
@@ -47,9 +47,9 @@ Partial Class Bancos_CatBancosEstatusIE
Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion) Alert("El nuevo Estatus de Ingresos y Egresos se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update() UpTitulos.Update()
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
If ViewState("Orden").ToString() <> String.Empty Then If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString()) CargaGrid(ViewState("Orden").ToString())
Else Else
CargaGrid("") CargaGrid("")
@@ -145,8 +145,8 @@ Partial Class Bancos_CatBancosEstatusIE
TxtCveEstatusIE.Text = "" TxtCveEstatusIE.Text = ""
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion) Alert("El Estatus de Ingresos y Egresos se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If End If
ObjEstatusIE.Dispose() ObjEstatusIE.Dispose()
@@ -178,8 +178,8 @@ Partial Class Bancos_CatBancosEstatusIE
If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then If ObjEstatusIE.UpdateBancos_EstatusIE(EstatusIE, Estatus, CveEstatusIE) Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If End If
ObjEstatusIE.Dispose() ObjEstatusIE.Dispose()

4
Bancos/CatEstatusIE.aspx.vb
View File

@@ -42,8 +42,8 @@ Partial Class Bancos_CatEstatusIE
Dim ObjEstatusIE As New ClsBancos Dim ObjEstatusIE As New ClsBancos
If ObjEstatusIE.GetBancos_EstatusIE() Then If ObjEstatusIE.GetBancos_EstatusIE() Then
ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados ViewState("DTEstatusIE") = ObjEstatusIE.DtResultados
GlobalDTEstatusIE = ObjEstatusIE.DtResultados GlobalDTBancosEstatusIE = ObjEstatusIE.DtResultados
GvDatos.DataSource = GlobalDTEstatusIE GvDatos.DataSource = GlobalDTBancosEstatusIE
Else Else
GvDatos.DataSource = Nothing GvDatos.DataSource = Nothing
End If End If

14
Bancos/IE.aspx.vb
View File

@@ -701,16 +701,16 @@ Partial Class Bancos_IE
LnkAjustarMovimiento.Visible = True LnkAjustarMovimiento.Visible = True
End If End If
If Not VerificaComplementos(True) Then 'If Not VerificaComplementos(True) Then
LnkCancelarComplemento.Visible = False ' LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False ' LnkCancelarComplementoImporte.Visible = False
UppEliminarIE.Update() ' UppEliminarIE.Update()
End If 'End If
End If End If
End Sub End Sub
@@ -960,6 +960,10 @@ Partial Class Bancos_IE
HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}" HplDepositado.NavigateUrl = $"/Bancos/IE.aspx?CveIE={CveIEDeposito2}"
End If End If
LnkCancelarComplemento.Visible = False
LnkCancelarComplementoImporte.Visible = False
UppEliminarIE.Update()
CargaEventoBitacora() CargaEventoBitacora()
CargaGvBitacora() CargaGvBitacora()

2
Bancos/RepIE.aspx.vb
View File

@@ -423,7 +423,7 @@ Partial Class Bancos_RepIE
DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1")) DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub End Sub
Private Sub CargaEstatusIE() Private Sub CargaEstatusIE()
DdlEstatusIE.DataSource = GlobalDTEstatusIE DdlEstatusIE.DataSource = GlobalDTBancosEstatusIE
DdlEstatusIE.DataBind() DdlEstatusIE.DataBind()
End Sub End Sub
Private Sub CargaUsuarioConcilio() Private Sub CargaUsuarioConcilio()

7
Compras/Compras.aspx.vb
View File

@@ -4160,8 +4160,10 @@ Partial Class Compras_Compras
CvePrePoliza = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) CvePrePoliza = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
'seria de contado, solo cuando no tenga vinculado ningun anticipo If CvePrePoliza > 0 Then
If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
'seria de contado, solo cuando no tenga vinculado ningun anticipo
If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
If RBLContado.SelectedValue = "1" Then If RBLContado.SelectedValue = "1" Then
'se registra primero el movimiento en bancos para luego vincularlo en la compra 'se registra primero el movimiento en bancos para luego vincularlo en la compra
@@ -7715,6 +7717,7 @@ Partial Class Compras_Compras
ObjCompras.RollBack() ObjCompras.RollBack()
End If End If
End If
Catch ex As Exception Catch ex As Exception
ObjCompras.RollBack() ObjCompras.RollBack()

2
Contratos/Contrato.aspx.vb
View File

@@ -3260,7 +3260,7 @@ Partial Class Contratos_Default
Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper
Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble
Dim CvePS As Integer = 0 Dim CvePS As Integer = 0
Dim CveUM As Integer = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero Dim CveUM As Integer = 0 ' GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero
Dim CodigoPS As Integer = 0 Dim CodigoPS As Integer = 0
Dim Total As Double = (Cantidad * PrecioUnitario) Dim Total As Double = (Cantidad * PrecioUnitario)

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1528,7 +1528,7 @@ Partial Class Inventarios_EntradasSalidas
If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
End If End If
Case 13 Case 13, 29
CveConceptoContable = 69 CveConceptoContable = 69
Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
If drr IsNot Nothing Then If drr IsNot Nothing Then
@@ -1881,7 +1881,7 @@ Partial Class Inventarios_EntradasSalidas
Dim filtro As String = "" Dim filtro As String = ""
Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27,29)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27,29)") filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27)")
If DdlAlmacen.SelectedValue = "-1" Then If DdlAlmacen.SelectedValue = "-1" Then
filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString filtro = IIf(UsuarioActual.CveEmpresa.Contiene(72, 1, 80), "CveConcepto NOT IN (4,5,10)", filtro).ToString