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

option explicit

Browse Source
This commit is contained in:
rrene
2023-10-10 20:55:56 -07:00
parent 14e2b73b55
commit d0d10e1337
1 changed files with 6 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Contabilidad/PopUpAuxiliar.aspx.vb
View File

@@ -177,16 +177,6 @@ Partial Class PopUpAuxiliar
e.Row.Cells(7).Visible = False
e.Row.Cells(8).Visible = False
e.Row.Cells(12).Visible = False
'ElseIf e.Row.RowIndex = 1 Then
' e.Row.Cells(0).Width = Unit.Pixel(95)
' e.Row.Cells(1).Width = Unit.Pixel(180)
' e.Row.Cells(2).Width = Unit.Pixel(80)
' e.Row.Cells(3).Width = Unit.Pixel(80)
' e.Row.Cells(4).Width = Unit.Pixel(83)
' e.Row.Cells(5).Width = Unit.Pixel(93)
' e.Row.Cells(6).Width = Unit.Pixel(85)
' e.Row.Cells(7).Width = Unit.Pixel(95)
' e.Row.Cells(8).Width = Unit.Pixel(70)
End If
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
@@ -274,10 +264,10 @@ Partial Class PopUpAuxiliar
Dim Conta As New ClsContabilidad()
Conta.IniciaTransacSQL()
Dim ClavePrePoliza = GVAuxiliar.Rows(e.RowIndex).DataKey("CvePrePolizaOriginal").ToEntero
Dim IdPoliza = GVAuxiliar.Rows(e.RowIndex).DataKey("IdPoliza").ToEntero
Dim ClavePrePoliza As Integer = GVAuxiliar.Rows(e.RowIndex).DataKey("CvePrePolizaOriginal").ToEntero
Dim IdPoliza As Integer = GVAuxiliar.Rows(e.RowIndex).DataKey("IdPoliza").ToEntero
Dim TieneError = False
Dim TieneError As Boolean = False
If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
TieneError = True
@@ -460,7 +450,7 @@ Partial Class PopUpAuxiliar
If e.CommandName = "DesAplicar" Then
Dim CvePrePoliza, CveVenta, CveVentaAmortizacion As Integer
Dim TieneError = False
Dim TieneError As Boolean = False
Dim St As String() = e.CommandArgument.ToString.Split("|"c)
If St.Length > 0 Then
@@ -495,7 +485,7 @@ Partial Class PopUpAuxiliar
If e.CommandName = "DesAplicarCompra" Then
Dim CvePrePoliza, CveCompra, CveCompraAmortizacion As Integer
Dim TieneError = False
Dim TieneError As Boolean = False
Dim St As String() = e.CommandArgument.ToString.Split("|"c)
If St.Length > 0 Then
@@ -530,7 +520,7 @@ Partial Class PopUpAuxiliar
If e.CommandName = "DesAplicarAnticipoCompra" Then
Dim CvePrePoliza, CveCompra, CveIE As Integer
Dim TieneError = False
Dim TieneError As Boolean = False
Dim St As String() = e.CommandArgument.ToString.Split("|"c)
If St.Length > 0 Then