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

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

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-11-18 15:26:15 -07:00
parent 2ef840e9c1 cc263e6ffb
commit 9dd3881d6e
6 changed files with 45 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Contratos/Contrato.aspx.vb
View File

@@ -1125,10 +1125,14 @@ Partial Class Contratos_Default
CargaPresupuesto() CargaPresupuesto()
' MuestraPermiteAvance() ' MuestraPermiteAvance()
cargarBitacora() cargarBitacora()
If LblImporte.Text.ToDecimal <= 0 Then
LblImporte.Text = ObjContratos.ImporteTotal.ToString.FormatoNumero 'If LblImporte.Text.ToDecimal <= 0 Then
End If 'LblImporte.Text = ObjContratos.ImporteTotal.ToString.FormatoNumero
LblImporte.Text = ObjContratos.DtResultados.Rows(0)("ImporteTotalIndicador").ToString().ToDecimal.ToString.FormatoNumero
'End If
If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then
ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo) ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo)
@@ -1194,7 +1198,7 @@ Partial Class Contratos_Default
LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero()
LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero() LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero()
LbTotalGeneralInt.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero() LbTotalGeneralInt.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero()
LblImporte.Text = "$" & TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() 'LblImporte.Text = "$" & TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero()
End If End If
End Sub End Sub
@@ -1936,7 +1940,7 @@ Partial Class Contratos_Default
TxtPU.Text = "" TxtPU.Text = ""
DdlClasificacionAdd.SelectedValue = "-1" DdlClasificacionAdd.SelectedValue = "-1"
LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero
LblImporte.Text = LbTotalGeneral.Text 'LblImporte.Text = LbTotalGeneral.Text
TxtCantidad.Focus() TxtCantidad.Focus()
UpGral.Update() UpGral.Update()
Else Else
@@ -1953,8 +1957,8 @@ Partial Class Contratos_Default
'If ContratosSecciones.GetContratosSecciones(-1, DdlEstatus.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, -1, -1, FechaI, FechaF) Then 'If ContratosSecciones.GetContratosSecciones(-1, DdlEstatus.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, -1, -1, FechaI, FechaF) Then
DtDatos = ContratosSecciones.DtResultados DtDatos = ContratosSecciones.DtResultados
' DtDatos.Rows.RemoveAt(0) ' DtDatos.Rows.RemoveAt(0)
CargaGVPresupuestos(DtDatos) CargaGVPresupuestos(DtDatos)
LblImporte.Text = "$" & DtDatos.MAX("Total").FormatoNumero() ' LblImporte.Text = "$" & DtDatos.MAX("Total").FormatoNumero()
Else Else
Gv.DataSource = Nothing Gv.DataSource = Nothing
End If End If
@@ -2092,7 +2096,7 @@ Partial Class Contratos_Default
Gv.EditIndex = -1 Gv.EditIndex = -1
LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero
LblImporte.Text = LbTotalGeneral.Text 'LblImporte.Text = LbTotalGeneral.Text
CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2"))
End Sub End Sub
@@ -2178,8 +2182,8 @@ Partial Class Contratos_Default
TxtCantidadInsumos.Text = "" TxtCantidadInsumos.Text = ""
TxtPUInsumos.Text = "" TxtPUInsumos.Text = ""
DdlClasificacionAddInsumos.SelectedValue = "-1" DdlClasificacionAddInsumos.SelectedValue = "-1"
LbTotalGeneralInsumos.Text = (LbTotalGeneralInsumos.Text.ToDouble + TotalRow).ToString.FormatoNumero LbTotalGeneralInsumos.Text = (LbTotalGeneralInsumos.Text.ToDouble + TotalRow).ToString.FormatoNumero
'LblImporte.Text = LbTotalGeneral.Text
TxtCantidadInsumos.Focus() TxtCantidadInsumos.Focus()
UpGral.Update() UpGral.Update()
Else Else
@@ -2273,8 +2277,8 @@ Partial Class Contratos_Default
End If End If
GvInsumos.EditIndex = -1 GvInsumos.EditIndex = -1
LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero
'LblImporte.Text = LbTotalGeneral.Text
CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1")) CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1"))
End Sub End Sub
@@ -3423,7 +3427,7 @@ Partial Class Contratos_Default
Dim ClaveInterna As String = Row("Clave Interna Cliente").ToString.Trim.ToUpper Dim ClaveInterna As String = Row("Clave Interna Cliente").ToString.Trim.ToUpper
Dim OCInterna As String = Row("OC Interna").ToString.Trim.ToUpper Dim OCInterna As String = Row("OC Interna").ToString.Trim.ToUpper
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.Replace("$", "").ToString.Replace(" ", "").ToDouble
Dim CvePS As Integer = 0 Dim CvePS As Integer = 0
Dim CveUM As Integer = 0 ' 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
@@ -3492,8 +3496,8 @@ Partial Class Contratos_Default
Dim TotalRow = dr("Total").ToString.ToDouble Dim TotalRow = dr("Total").ToString.ToDouble
CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2"))
LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero
LblImporte.Text = LbTotalGeneral.Text ' LblImporte.Text = LbTotalGeneral.Text
Else Else
Alert("Ocurrio un error al agregar el detalle", TipoMensaje.MsgError) Alert("Ocurrio un error al agregar el detalle", TipoMensaje.MsgError)
End If End If

16
Contratos/ContratoObra.aspx
View File

@@ -174,7 +174,7 @@
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkModalAddPresupuestoControl" Visible="false" runat="server" OnClick="LnkModalAddPresupuestoControl_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Presupuesto Control</asp:LinkButton> <asp:LinkButton ID="LnkModalAddPresupuestoControl" Visible="false" runat="server" OnClick="LnkModalAddPresupuestoControl_Click"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i>Agregar Presupuesto Interno</asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
@@ -980,7 +980,8 @@
</EditItemTemplate> </EditItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Limitar">
<%-- <asp:TemplateField HeaderText="Limitar">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LblLimitar" Text='<%# If(Eval("LimitarCantidad").ToString = "True", "Si", "No")%>' runat="server"></asp:Literal> <asp:Literal ID="LblLimitar" Text='<%# If(Eval("LimitarCantidad").ToString = "True", "Si", "No")%>' runat="server"></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -988,7 +989,8 @@
<asp:CheckBox ID="ChkLimitarCantidad" runat="server" Checked='<%# Eval("LimitarCantidad").ToString%>'></asp:CheckBox> <asp:CheckBox ID="ChkLimitarCantidad" runat="server" Checked='<%# Eval("LimitarCantidad").ToString%>'></asp:CheckBox>
</EditItemTemplate> </EditItemTemplate>
<ItemStyle Width="75px" HorizontalAlign="Center" /> <ItemStyle Width="75px" HorizontalAlign="Center" />
</asp:TemplateField> </asp:TemplateField>--%>
<%-- <asp:TemplateField HeaderText="Clave Int. Cliente"> <%-- <asp:TemplateField HeaderText="Clave Int. Cliente">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LblNoIdentificacion" Text='<%# Eval("NoIdentificacion")%>' runat="server"></asp:Literal> <asp:Literal ID="LblNoIdentificacion" Text='<%# Eval("NoIdentificacion")%>' runat="server"></asp:Literal>
@@ -1124,7 +1126,7 @@
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel ID="TabPVInsumos" runat="server" HeaderText="Control"> <ajax:TabPanel ID="TabPVInsumos" runat="server" HeaderText="Interno">
<ContentTemplate> <ContentTemplate>
<%-- <asp:UpdatePanel ID="UpTitulosInsumos" runat="server" UpdateMode="Conditional"> <%-- <asp:UpdatePanel ID="UpTitulosInsumos" runat="server" UpdateMode="Conditional">
@@ -1218,7 +1220,8 @@
</EditItemTemplate> </EditItemTemplate>
<ItemStyle Width="150px" /> <ItemStyle Width="150px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Limitar">
<%-- <asp:TemplateField HeaderText="Limitar">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LblLimitar" Text='<%# If(Eval("LimitarCantidad").ToString = "True", "Si", "No")%>' runat="server"></asp:Literal> <asp:Literal ID="LblLimitar" Text='<%# If(Eval("LimitarCantidad").ToString = "True", "Si", "No")%>' runat="server"></asp:Literal>
</ItemTemplate> </ItemTemplate>
@@ -1226,7 +1229,8 @@
<asp:CheckBox ID="ChkLimitarCantidad" runat="server" Checked='<%# Eval("LimitarCantidad").ToString%>'></asp:CheckBox> <asp:CheckBox ID="ChkLimitarCantidad" runat="server" Checked='<%# Eval("LimitarCantidad").ToString%>'></asp:CheckBox>
</EditItemTemplate> </EditItemTemplate>
<ItemStyle Width="75px" HorizontalAlign="Center" /> <ItemStyle Width="75px" HorizontalAlign="Center" />
</asp:TemplateField> </asp:TemplateField>--%>
<%-- <asp:TemplateField HeaderText="Clave <br/> Interna"> <%-- <asp:TemplateField HeaderText="Clave <br/> Interna">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LblNoIdentificacion" Text='<%# Eval("NoIdentificacion")%>' runat="server"></asp:Literal> <asp:Literal ID="LblNoIdentificacion" Text='<%# Eval("NoIdentificacion")%>' runat="server"></asp:Literal>

18
Contratos/ContratoObra.aspx.vb
View File

@@ -454,12 +454,12 @@ Partial Class Contratos_ContratoObra
If CveContrato > 0 Then If CveContrato > 0 Then
If UsuarioActual.TienePermisoProceso(164) Then If UsuarioActual.TienePermisoProceso(164) Then
BtnEliminar.Visible = True BtnEliminar.Visible = True
Gv.Columns(9).Visible = True Gv.Columns(8).Visible = True
GvInsumos.Columns(8).Visible = True GvInsumos.Columns(7).Visible = True
Else Else
BtnEliminar.Visible = False BtnEliminar.Visible = False
Gv.Columns(9).Visible = False Gv.Columns(8).Visible = False
GvInsumos.Columns(8).Visible = False GvInsumos.Columns(7).Visible = False
End If End If
'If CveTipoContrato.Contiene(11, 25) Then 'ciclo comercial 'If CveTipoContrato.Contiene(11, 25) Then 'ciclo comercial
@@ -469,8 +469,8 @@ Partial Class Contratos_ContratoObra
Else Else
TabPres.Visible = False TabPres.Visible = False
Gv.Columns(9).Visible = True Gv.Columns(8).Visible = True
GvInsumos.Columns(8).Visible = True GvInsumos.Columns(7).Visible = True
End If End If
@@ -1042,7 +1042,7 @@ Partial Class Contratos_ContratoObra
'TDObservacion.Visible = True 'TDObservacion.Visible = True
'tdObservaciones.Visible = True 'tdObservaciones.Visible = True
TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString
Gv.Columns(4).Visible = True Gv.Columns(3).Visible = True
'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString) 'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString)
End If End If
@@ -1843,9 +1843,9 @@ Partial Class Contratos_ContratoObra
Gv.DataBind() Gv.DataBind()
If CveTipoContrato = 25 Then If CveTipoContrato = 25 Then
' Gv.Columns(0).Visible = False ' Gv.Columns(0).Visible = False
Gv.Columns(2).Visible = False Gv.Columns(1).Visible = False
' Gv.Columns(3).Visible = False ' Gv.Columns(3).Visible = False
Gv.Columns(7).Visible = False Gv.Columns(6).Visible = False
End If End If
'If (Gv.Rows.Count > 0) Then 'If (Gv.Rows.Count > 0) Then
' Gv.UseAccessibleHeader = True ' Gv.UseAccessibleHeader = True

2
Contratos/RepContratosObraAvancesDetalle.aspx.vb
View File

@@ -151,7 +151,7 @@ Partial Class RepContratosObraAvancesDetalle
Dim PlantillaAnexo As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Anexo.xlsx" Dim PlantillaAnexo As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Anexo.xlsx"
If Not System.IO.File.Exists(PlantillaAnexo) Then If Not System.IO.File.Exists(PlantillaAnexo) Then
Alert("No se encuentra la platilla de anexos.", TipoMensaje.MsgAdvertencia) Alert("No se encuentra la plantilla de anexos.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If

8
Contratos/RepContratosObraAvancesPartida.aspx
View File

@@ -24,11 +24,11 @@
<div class="row"> <div class="row">
<div class="col-md-3" style="text-align:left!important"> <div class="col-md-6" style="text-align:left!important">
<strong> </strong> <strong> </strong>
</div> </div>
<div class="col-md-3" style="text-align:right!important"> <div class="col-md-6" style="text-align:right!important">
<div style="display: inline-block"> <div style="display: inline-block">
<input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a> <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
@@ -40,9 +40,9 @@
<div class="row"> <div class="row">
<div class="col-md-6"> <div class="col-md-12">
<asp:GridView ID="GVDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron contratos con los Filtros seleccionados" <asp:GridView ID="GVDatos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron contratos con los Filtros seleccionados"
DataKeyNames="CveContrato,CveEstimacion,Fecha,PS,CveContratoDetalle" ShowHeader="True" DataKeyNames="CveContrato,CveEstimacion,Fecha,PS,CveContratoDetalle" ShowHeader="True"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>

2
OC/OC.aspx.vb
View File

@@ -8334,7 +8334,7 @@ Partial Class OC
Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida") Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida")
Dim UMAbreviatura As String = GvRow.DataKey("Abreviatura").ToString Dim UMAbreviatura As String = GvRow.DataKey("Abreviatura").ToString
Dim SubProyecto As Integer = GvRow.DataKey("SubProyecto") Dim SubProyecto As String = GvRow.DataKey("SubProyecto")
Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero
Dim Codigo As String = "" 'GvRow.DataKey("Codigo") Dim Codigo As String = "" 'GvRow.DataKey("Codigo")