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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-05-22 12:11:51 -07:00
parent 420ac4e935 a00195d244
commit 3eb84fdf8f
56 changed files with 4818 additions and 2520 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/PopIEVentas.aspx.vb
View File

@@ -690,7 +690,7 @@ Partial Class Bancos_PopIEVentas
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" AndAlso dr("FolioFiscal").ToString() <> "" Then
Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("ClienteRFC").ToString, dr("Total").ToString.ToDecimal)
Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("RFCReceptor").ToString, dr("Total").ToString.ToDecimal)
If Valida.EsValida > 0 Then
If Valida.EsValida = 2 Then

2
Bancos/ProveedoresAbonar.aspx
View File

@@ -176,7 +176,7 @@
<div class="row" id="trNotificar" runat="server" visible="False">
<label class="col-md-2 control-label">Notificar:</label>
<div class="col-md-7">
<asp:TextBox ID="TxtNotificarA" runat="server" MaxLength="12" CssClass="form-control input-sm" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
<asp:TextBox ID="TxtNotificarA" runat="server" MaxLength="100" CssClass="form-control input-sm" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
</div>
<div>

7
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1938,6 +1938,7 @@ Partial Class Bancos_ProveedoresAbonar
End If
Case 42 'Acreedores
If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
Dim ObjCreditos As New ClsBancos
ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
@@ -1947,10 +1948,12 @@ Partial Class Bancos_ProveedoresAbonar
IdCtaContable = IdCuenta
End If
ImporteMovimiento = TxtImporte.Text.ToDecimal
importeMX = If(CveMoneda = 2, If(DivTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal * TipoCambioPago, TxtImporte.Text.ToDecimal * TipoCambioPago), TxtImporte.Text.ToDecimal)
Dim Importe42 As Decimal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
ImporteMovimiento = Importe42
importeMX = If(CveMoneda = 2, If(DivTC.Visible, Importe42 / TxtTC.Text.ToDecimal * TipoCambioPago, Importe42 * TipoCambioPago), Importe42)
TipoCambioGeneral = TipoCambioPago
End If
Case 30
'Conta ContPAQ
If IdCuenta < 1 Then