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

-- mostrar liga a prepóliza

Browse Source
This commit is contained in:
rrene
2023-08-29 10:36:10 -07:00
parent a520e3254b
commit a8c9feaddd
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/RepRembolsoComprobaciones.aspx
View File

@@ -243,7 +243,7 @@
<asp:HyperLink ID="HLProv" CssClass="Texto" Text='<%# Eval("CveProveedor")%>' runat="server"></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField HeaderText="Poliza" DataTextField="FolioPoliza" DataNavigateUrlFields="IdPoliza" DataNavigateUrlFormatString="/Contabilidad/RegPoliza.aspx?IdPoliza={0}" Target="_blank" ItemStyle-HorizontalAlign="Left" />
<asp:HyperLinkField HeaderText="Poliza" DataTextField="FolioPoliza" DataNavigateUrlFields="CvePrePoliza" DataNavigateUrlFormatString="/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}" Target="_blank" ItemStyle-HorizontalAlign="Left" />
</Columns>
</asp:GridView>
</ContentTemplate>

4
Compras/RepRembolsoComprobaciones.aspx.vb
View File

@@ -128,7 +128,7 @@ Partial Class Compras_RepRembolsoComprobaciones
If e.Row.DBCampo("Original").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldoOriginal"), Literal).Text = ""
If e.Row.DBCampo("Abonado").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlAbonado"), Literal).Text = ""
If e.Row.DBCampo("Saldo").ToDouble = 0 Then DirectCast(e.Row.FindControl("LtlSaldo"), Literal).Text = ""
If Not e.Row.DBCampo("IdPoliza").ToEntero > 0 Then e.Row.Cells(13).Text = ""
If Not e.Row.DBCampo("CvePrePoliza").ToEntero > 0 Then e.Row.Cells(12).Text = ""
End If
End Sub
@@ -137,7 +137,7 @@ Partial Class Compras_RepRembolsoComprobaciones
Dim ObjMov As New ClsContabilidad(ObjComp.IniciaTransacSQL)
Dim ObjAC As ClsContPAQi = Nothing
Dim TieneError = False
Dim TieneError As Boolean = False
Dim CvePrePoliza As Integer = 0
Dim IdPoliza As Integer = 0
Dim Msg As New StringBuilder