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

Browse Source
This commit is contained in:
janeth arvizu
2019-10-09 12:09:10 -07:00
parent fabc1e6ceb
commit f6b2882ba2
4 changed files with 465 additions and 329 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Compras/Compras.aspx
View File

@@ -992,6 +992,7 @@
<asp:UpdatePanel runat="server">
<ContentTemplate>
<asp:Label ID="LblTC" runat="server" Text=""></asp:Label>
<asp:Label ID="LblTCO" runat="server" Text=""></asp:Label>
<div runat="server" id="DivTC" visible="false">
TC:
<asp:TextBox ID="TxtTC" Text="" Width="50px" runat="server" />

3
Compras/Compras.aspx.vb
View File

@@ -2376,7 +2376,10 @@ Partial Class Compras_Compras
CompraSaldo = TxtTotal.Text.ToDouble
TipoCambio = dr("TipoCambio").ToString.ToDouble
Dim TipoCambioOriginal = dr("TipoCambioOriginal").ToString.ToDouble
If TipoCambio > 1 Then LblTC.Text = String.Format("TC: {0}", TipoCambio.ToString("N4"))
If TipoCambio <> TipoCambioOriginal Then LblTCO.Text = String.Format("<br/>TC Original: {0}", TipoCambioOriginal.ToString("N4"))
AsignaValoresOriginales(TxtSubTotal.Text.ToDouble, TxtSubTotal2.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDouble)
CalculaTotalPorDevengar()