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

parametro de empresa y grupo, en contratos detalle

Browse Source
This commit is contained in:
rrene
2021-07-24 11:51:23 -07:00
parent 66f1f908b8
commit f2a4f5f9d1
8 changed files with 13 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/ClsContratos.vb
View File

@@ -1084,12 +1084,14 @@ Public Class ClsContratos
End Function End Function
Public Function GetContratosDetalle(CveContrato As Integer) As Boolean Public Function GetContratosDetalle(CveContrato As Integer, CveEmpresa As Integer, Optional Grupo As Integer = 1) As Boolean
Dim Retorno = False Dim Retorno = False
DataAdapter("PA_Con_ContratosDetalleGet") DataAdapter("PA_Con_ContratosDetalleGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Grupo", SqlDbType.Int).Value = Grupo
End With End With
Try Try

2
Contratos/Contrato.aspx.vb
View File

@@ -1182,7 +1182,7 @@ Partial Class Contratos_Default
If TipoContrato = 4 Then If TipoContrato = 4 Then
TabPI.Visible = True TabPI.Visible = True
End If End If
If ObjContratos.GetContratosDetalle(CveContrato) Then If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
TmpDT = ObjContratos.DtResultados TmpDT = ObjContratos.DtResultados
If TmpDT.MAX("Cantidad_Original").ToString.ToEntero > 0 OrElse TmpDT.MAX("PU_Original").ToString.ToEntero > 0 Then If TmpDT.MAX("Cantidad_Original").ToString.ToEntero > 0 OrElse TmpDT.MAX("PU_Original").ToString.ToEntero > 0 Then
BtnAutorizar.Visible = False BtnAutorizar.Visible = False

2
Contratos/Contrato.vb
View File

@@ -529,7 +529,7 @@ Partial Class Contratos_Default
If TipoContrato = 4 Then If TipoContrato = 4 Then
TabPI.Visible = True TabPI.Visible = True
End If End If
If ObjContratos.GetContratosDetalle(CveContrato) Then If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
TmpDT = ObjContratos.DtResultados TmpDT = ObjContratos.DtResultados
If TmpDT.MAX("Cantidad_Original").ToString.ToEntero > 0 OrElse TmpDT.MAX("PU_Original").ToString.ToEntero > 0 Then If TmpDT.MAX("Cantidad_Original").ToString.ToEntero > 0 OrElse TmpDT.MAX("PU_Original").ToString.ToEntero > 0 Then
BtnAutorizar.Visible = False BtnAutorizar.Visible = False

2
Contratos/ContratoObra.aspx.vb
View File

@@ -902,7 +902,7 @@ Partial Class Contratos_ContratoObra
If TipoContrato = 4 Then If TipoContrato = 4 Then
TabPI.Visible = True TabPI.Visible = True
End If End If
If ObjContratos.GetContratosDetalle(CveContrato) Then If ObjContratos.GetContratosDetalle(CveContrato, UsuarioActual.CveEmpresa) Then
TmpDT = ObjContratos.DtResultados TmpDT = ObjContratos.DtResultados
If TmpDT.MAX("Cantidad_Original").ToString.ToEntero > 0 OrElse TmpDT.MAX("PU_Original").ToString.ToEntero > 0 Then If TmpDT.MAX("Cantidad_Original").ToString.ToEntero > 0 OrElse TmpDT.MAX("PU_Original").ToString.ToEntero > 0 Then
BtnAutorizar.Visible = False BtnAutorizar.Visible = False

2
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -467,7 +467,7 @@ Partial Class Contratos_FacturacionMasiva
SubProyecto = DR("SubProyectoContrato").ToString SubProyecto = DR("SubProyectoContrato").ToString
Dim objContratos As New ClsContratos Dim objContratos As New ClsContratos
If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero) Then If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
DTDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2") DTDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2")
Else Else
DTDetalle = Nothing DTDetalle = Nothing

2
GPS/FacturacionMasiva.aspx.vb
View File

@@ -548,7 +548,7 @@ Partial Class Contratos_FacturacionMasiva
End If End If
ObjFolios.Dispose() ObjFolios.Dispose()
If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero) Then If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
DTDetalle = objContratos.DtResultados DTDetalle = objContratos.DtResultados
Else Else
DTDetalle = Nothing DTDetalle = Nothing

4
Inventarios/TrasladoSolicitud.aspx.vb
View File

@@ -547,7 +547,7 @@ Partial Class Inventarios_TrasladoSolicitud
End Sub End Sub
Private Sub DdlContratos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContratos.SelectedIndexChanged Private Sub DdlContratos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContratos.SelectedIndexChanged
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero) Then If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvContratos.DataSource = ObjContratos.DtResultados GvContratos.DataSource = ObjContratos.DtResultados
GvContratos.DataBind() GvContratos.DataBind()
If ObjContratos.DtResultados.Rows.Count > 0 Then If ObjContratos.DtResultados.Rows.Count > 0 Then
@@ -974,7 +974,7 @@ Partial Class Inventarios_TrasladoSolicitud
Dim DTContratosTemporal As New DataTable Dim DTContratosTemporal As New DataTable
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero) Then If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
DTContratosTemporal = ObjContratos.DtResultados DTContratosTemporal = ObjContratos.DtResultados
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()

6
OC/OC.aspx.vb
View File

@@ -2101,7 +2101,7 @@ Partial Class OC
Dim dttemp As DataTable = Nothing 'GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString)) Dim dttemp As DataTable = Nothing 'GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
Dim drContrato As DataRow = dttemp.Rows(0) Dim drContrato As DataRow = dttemp.Rows(0)
If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
Dim dtContratodetalle As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlP2.SelectedValue.ToString)) Dim dtContratodetalle As DataTable = ObjContratos.DtResultados.FiltraParametros(String.Format("CvePS = {0}", DdlP2.SelectedValue.ToString))
If dtContratodetalle IsNot Nothing AndAlso dtContratodetalle.Rows.Count > 0 Then If dtContratodetalle IsNot Nothing AndAlso dtContratodetalle.Rows.Count > 0 Then
Dim drContratoDetalle As DataRow = dtContratodetalle(0) Dim drContratoDetalle As DataRow = dtContratodetalle(0)
@@ -7449,7 +7449,7 @@ Partial Class OC
Private Sub CargaContratos() Private Sub CargaContratos()
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero) Then If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvContratos.DataSource = ObjContratos.DtResultados GvContratos.DataSource = ObjContratos.DtResultados
End If End If
ObjContratos.Dispose() ObjContratos.Dispose()
@@ -7479,7 +7479,7 @@ Partial Class OC
Private Sub DdlContratos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContratos.SelectedIndexChanged Private Sub DdlContratos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContratos.SelectedIndexChanged
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero) Then If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvContratos.DataSource = ObjContratos.DtResultados GvContratos.DataSource = ObjContratos.DtResultados
GvContratos.DataBind() GvContratos.DataBind()
End If End If