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

Contratos modal avancve RH y maquinaria

Browse Source
This commit is contained in:
rakcsle
2020-12-29 18:57:18 -07:00
parent 6d72106071
commit de63a27f3a
3 changed files with 77 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsContratos.vb
View File

@@ -2507,7 +2507,7 @@ Public Class ClsContratos
Return Retorno
End Function
Public Function GetVentasAvanceObra(CveContrato As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer) As Boolean
Public Function GetVentasAvanceObra(CveContrato As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, CveRubro As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Con_RepVentasAvancesObra")
@@ -2517,6 +2517,9 @@ Public Class ClsContratos
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CvePS", SqlDbType.Int).Value = CvePS
.Add("@Tipo", SqlDbType.Int).Value = Tipo
.Add("@CveRubro", SqlDbType.Int).Value = CveRubro
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With

23
Contratos/ContratoObra.aspx
View File

@@ -1357,7 +1357,7 @@
</div>
<asp:GridView ID="GvDatosAvanceControl" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados"
DataKeyNames="CveClasificacion,CvePS,CodigoPS,Clasificacion,CveContratoDetalle"
DataKeyNames="CveClasificacion,CvePS,CodigoPS,Clasificacion,CveContratoDetalle,CveRubro"
CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
@@ -2406,6 +2406,27 @@
</Columns>
</asp:GridView>
<asp:GridView ID="GvDatosVentasAvanceInternoRH" Visible="false" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
<Columns>
<asp:BoundField HeaderText="Actividad" DataField="Actividad" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Nombre" DataField="NombreCompleto" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:d}" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Puesto" DataField="Puesto" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-CssClass="Texto Derecha" DataFormatString={0:N} />
</Columns>
</asp:GridView>
<asp:GridView ID="GvDatosVentasAvanceInternoMaquinaria" Visible="false" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
<Columns>
<asp:BoundField HeaderText="SubTipoActivoFijo" DataField="SubTipoActivoFijo" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Descripción" DataField="Descripcion" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Horas" DataField="Horas" ItemStyle-CssClass="Texto Izquierda" />
<asp:BoundField HeaderText="Importe" DataField="Total" ItemStyle-CssClass="Texto Derecha" DataFormatString={0:N} />
</Columns>
</asp:GridView>
</div>
</ContentTemplate>

58
Contratos/ContratoObra.aspx.vb
View File

@@ -2372,6 +2372,8 @@ Partial Class Contratos_ContratoObra
GvDatosVentasAvance.Visible = True
GvDatosVentasAvanceInterno.Visible = False
GvDatosVentasAvanceInternoRH.Visible = False
GvDatosVentasAvanceInternoMaquinaria.Visible = False
'Dim Btn = CType(sender, LinkButton)
'Dim Parametros = Btn.CommandArgument.Split("|"c)
@@ -2384,7 +2386,7 @@ Partial Class Contratos_ContratoObra
Dim ObjContratos As New ClsContratos
If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 1) Then
If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 1, -1, UsuarioActual.CveEmpresa) Then
GvDatosVentasAvance.DataSource = ObjContratos.DtResultados
RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
Else
@@ -2409,26 +2411,68 @@ Partial Class Contratos_ContratoObra
Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
GvDatosVentasAvance.Visible = False
GvDatosVentasAvanceInterno.Visible = True
Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
Dim Clasificacion As String = GvRow.DataKey("Clasificacion")
Dim CveRubro As Integer = GvRow.DataKey("CveRubro").ToEntero
GvDatosVentasAvance.Visible = False
If CveRubro = 3 Then
GvDatosVentasAvanceInterno.Visible = False
GvDatosVentasAvanceInternoRH.Visible = True
GvDatosVentasAvanceInternoMaquinaria.Visible = False
ElseIf CveRubro = 4 Then
GvDatosVentasAvanceInterno.Visible = False
GvDatosVentasAvanceInternoRH.Visible = False
GvDatosVentasAvanceInternoMaquinaria.Visible = True
Else
GvDatosVentasAvanceInterno.Visible = True
GvDatosVentasAvanceInternoRH.Visible = False
GvDatosVentasAvanceInternoMaquinaria.Visible = False
End If
GvDatosVentasAvanceInterno.Visible = True
Dim ObjContratos As New ClsContratos
If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2) Then
GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados
If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2, CveRubro, UsuarioActual.CveEmpresa) Then
If CveRubro = 3 Then
GvDatosVentasAvanceInternoRH.DataSource = ObjContratos.DtResultados
ElseIf CveRubro = 4 Then
GvDatosVentasAvanceInternoMaquinaria.DataSource = ObjContratos.DtResultados
Else
GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados
End If
RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
Else
Alert("Ocurrió un error al obtener el Listado de Ventas de Avance. Por favor vuelva a intentar", TipoMensaje.MsgError)
End If
ObjContratos.Dispose()
GvDatosVentasAvanceInterno.DataBind()
ObjContratos.Dispose()
If CveRubro = 3 Then
GvDatosVentasAvanceInternoRH.DataBind()
ElseIf CveRubro = 4 Then
GvDatosVentasAvanceInternoMaquinaria.DataBind()
Else
GvDatosVentasAvanceInterno.DataBind()
End If
LbTituloModalVentasAvance.Text = "Compras de Avance"