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

Contratos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-12-05 11:11:05 -07:00
parent 798155e820
commit 9a37b6be08
4 changed files with 23 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Contratos/RepContratosObraAvancesDetalle.aspx.vb
View File

@@ -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()