From 798155e8204dda7636916d8d7876b5fe6f818ff2 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 3 Dec 2020 18:06:19 -0700
Subject: [PATCH 1/2] Contratos

---
 Contratos/RepContratosObraAvancesDetalle.aspx | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx b/Contratos/RepContratosObraAvancesDetalle.aspx
index c06b4dbdb..88c16a484 100644
--- a/Contratos/RepContratosObraAvancesDetalle.aspx
+++ b/Contratos/RepContratosObraAvancesDetalle.aspx
@@ -238,12 +238,12 @@
                      <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center"  HeaderText="Factura" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="~/Ventas/Ventas.aspx?CveVenta={0}" DataTextField="SerieFolio" Target="_blank"  />
 
 
-                     <asp:TemplateField HeaderText="Estado">
+<%--                     <asp:TemplateField HeaderText="Estado">
                         <ItemTemplate>
                             <asp:Label ID="LblEstatus" CssClass="Texto" runat="server" Text='<%# Eval("EstimacionEstatus")%>'></asp:Label>
                         </ItemTemplate>
                         <ItemStyle HorizontalAlign="Center"></ItemStyle>
-                    </asp:TemplateField>
+                    </asp:TemplateField>--%>
 
 
                       <asp:TemplateField HeaderText=" ">

From 9a37b6be083a599e6b8e209b9d814c4b19916841 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Sat, 5 Dec 2020 11:11:05 -0700
Subject: [PATCH 2/2] Contratos

---
 App_Code/ClsPaginas.vb                           | 10 +++++-----
 Contratos/ContratoObra.aspx                      | 10 ++++++----
 Contratos/ContratoObra.aspx.vb                   |  8 ++++----
 Contratos/RepContratosObraAvancesDetalle.aspx.vb |  9 ++++++++-
 4 files changed, 23 insertions(+), 14 deletions(-)

diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index a704afaf3..a8636cb31 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -5017,11 +5017,11 @@ Public Class ClsPaginas
             PaginaDict.Add("/PV/PVRepCompras.aspx".ToUpper(), 272)
             PaginaDict.Add("/PV/PVRepVentasCompras.aspx".ToUpper(), 273)
 
-            PaginaDict.Add("/Contratos/ContratoObra.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Contratos/RepContratosObraAvances.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Contratos/RepContratosObraAvancesDetalle.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Contratos/RepContratosObraAvancesPartida.aspx".ToUpper(), -1)
-            PaginaDict.Add("/Contratos/ContratoObraAutorizacion.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Contratos/ContratoObra.aspx".ToUpper(), 911)
+            PaginaDict.Add("/Contratos/RepContratosObraAvances.aspx".ToUpper(), 914)
+            PaginaDict.Add("/Contratos/RepContratosObraAvancesDetalle.aspx".ToUpper(), 914)
+            PaginaDict.Add("/Contratos/RepContratosObraAvancesPartida.aspx".ToUpper(), 914)
+            PaginaDict.Add("/Contratos/ContratoObraAutorizacion.aspx".ToUpper(), 913)
 
 
 
diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index 0b57d21c6..78eed7830 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -206,7 +206,7 @@
 
                                         <div class="progress">
                                             <span runat="server" id="SPAvance1" style="width: 76%;" class="progress-bar progress-bar-success green-sharp">
-                                                <%--<span  runat="server" id="SPAvance2"  class="sr-only">76% Avance</span>--%>
+                                                <%--<span  runat="server" id="SPAvance2"  class="sr-only">76% Avance</span>--%>
                                 </span>
                                         </div>
 
@@ -260,7 +260,7 @@
                                     <div class="progress-info">
                                         <div class="progress">
                                             <span runat="server" id="SPFaltante" style="width: 76%;" class="progress-bar progress-bar-success red-haze">
-                                                <%--<span class="sr-only">76% Avance</span>--%>
+                                                <%--<span class="sr-only">76% Avance</span>--%>
                                 </span>
                                         </div>
                                         <div class="status">
@@ -442,7 +442,8 @@
                                                     <div class="row" id="DVddlproyecto" runat="server">
 
                                                         <asp:Label runat="server" ID="LblProyecto" class="col-md-3 truncate">Proyecto:</asp:Label>
-                                                        <div class="col-md-9">
+                                                        
+                                                 <div class="col-md-9">
                                                             <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-sm select2me" Style="width: 200px;" ValidationGroup="GrpGuardar">
                                                                 <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
                                                             </asp:DropDownList>
@@ -451,6 +452,7 @@
                                                             <ajax:ValidatorCalloutExtender ID="CVERFVDdlProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
 
                                                         </div>
+
                                                     </div>
 
                                                     <div class="row" id="DVSubProyecto" runat="server" visible="false">
@@ -777,7 +779,7 @@
                                                                         </ItemTemplate>
                                                                         <ItemStyle Width="150px" HorizontalAlign="Right" />
                                                                     </asp:TemplateField>
-                                                                    <asp:TemplateField HeaderText="Avance" Visible="True">
+                                                                    <asp:TemplateField HeaderText="Avance" Visible="false">
                                                                         <ItemTemplate>                                                                           
                                                                             
                                                                             <asp:LinkButton runat="server" ID="LnkHabilitaAvance"  Text= "" OnClick="LnkHabilitaAvance_Click" Enabled="false" 
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 932c9a1c1..ccee69efe 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -606,7 +606,7 @@ Partial Class Contratos_ContratoObra
         TxtFechaFinal.Text = ""
         TxtPorIVA.Text = ""
 
-        DdlProyecto.SelectedValue = "-1"
+        'DdlProyecto.SelectedValue = "-1"
 
         TxtCantidad.Text = ""
         TxtPU.Text = ""
@@ -779,7 +779,7 @@ Partial Class Contratos_ContratoObra
                 TxtPorAnticipo.Text = ObjContratos.PorAmortizacionAnticipo.FormatoNumero
                 TxtPorAmortizacionAnticipo.Text = ObjContratos.PorAmortizacionAnticipo.FormatoNumero
                 TxtPorGarantia.Text = ObjContratos.PorGarantia.FormatoNumero
-                DdlProyecto.SelectedValue = ObjContratos.CveProyecto.ToString
+                'DdlProyecto.SelectedValue = ObjContratos.CveProyecto.ToString
                 LblSubProyecto.Text = ObjContratos.SubProyectoContrato
                 DdlTipoContratoObra.SelectedValueExist(ObjContratos.CveContratoTipo)
                 'CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)
@@ -4592,11 +4592,11 @@ Partial Class Contratos_ContratoObra
 
             Dim CantidadAvance As Decimal = DTDatos.Rows(0)("Cantidad").ToString.ToDecimal
             Dim ImporteAvance As Decimal = DTDatos.Rows(0)("AvanceImporte").ToString.ToDecimal
-            Dim TotalAvancePorcentaje As Decimal = (ImporteAvance * 100 / TotalAvanceVentas).RoundSQL(2)
+            Dim TotalAvancePorcentaje As Decimal = If(ImporteAvance > 0, (ImporteAvance * 100 / TotalAvanceVentas).RoundSQL(2), 0)
 
             Dim CantidadInterno As Decimal = DTDatos.Rows(0)("CantidadInterno").ToString.ToDecimal
             Dim ImporteInterno As Decimal = DTDatos.Rows(0)("ImporteInterno").ToString.ToDecimal
-            Dim TotalFaltantePorcentaje As Decimal = (ImporteInterno * 100 / TotalAvanceInterno).RoundSQL(2)
+            Dim TotalFaltantePorcentaje As Decimal = If(ImporteInterno > 0, (ImporteInterno * 100 / TotalAvanceInterno).RoundSQL(2), 0)
 
 
             LtlAvanceImporte.Text = $"$ { ImporteAvance.ToString("###,###,###.00") }"
diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx.vb b/Contratos/RepContratosObraAvancesDetalle.aspx.vb
index 30396f1c8..384ff2da2 100644
--- a/Contratos/RepContratosObraAvancesDetalle.aspx.vb
+++ b/Contratos/RepContratosObraAvancesDetalle.aspx.vb
@@ -342,6 +342,7 @@ Partial Class RepContratosObraAvancesDetalle
 
             WBAnexo.Worksheet(1).CopyTo(WBAnexoSalvar, "CONTROL")
 
+            Dim Contadorpaginas As Integer = 1
 
             For Each Drow As DataRow In DtControl.Rows
 
@@ -380,7 +381,10 @@ Partial Class RepContratosObraAvancesDetalle
 
                     Dim Imagenes As New List(Of ClosedXML.Excel.Drawings.IXLPicture)
 
+
                     Dim CurrectRowImg As Integer = 19 'Row 19 primera imggen
+
+
                     Dim RowH As Double = WSDetalle.Row(19).Height
 
                     For Each drowArchivos In DTArchivos.Rows
@@ -403,7 +407,10 @@ Partial Class RepContratosObraAvancesDetalle
                         End If
 
                     Next
-                    WBAnexo.Worksheet(2).CopyTo(WBAnexoSalvar, If(Drow("Codigo").ToString.Trim.Length > 0, Drow("Codigo").ToString, Drow("CvePS").ToString))
+
+                    WBAnexo.Worksheet(2).CopyTo(WBAnexoSalvar, If(Drow("Codigo").ToString.Trim.Length > 0, Contadorpaginas & "_" & Drow("Codigo").ToString, Contadorpaginas & "_" & Drow("CvePS").ToString))
+
+                    Contadorpaginas = Contadorpaginas + 1
 
                     For Each img As ClosedXML.Excel.Drawings.IXLPicture In Imagenes
                         img.Delete()