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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-10-23 15:56:01 -07:00
parent 439ddb5213 cd3ba65340
commit 7dca88531f
5 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Ventas/ClientesAbonar.aspx.vb
View File

@@ -355,7 +355,7 @@ Partial Class Ventas_ClientesAbonar
Private Sub CargaCuentas()
DdlCuenta.Items.Clear()
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
Dim dt As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa, CveTipoCuenta:=2)
If ChkPagarPesos.Checked Then
dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1))
@@ -1730,9 +1730,14 @@ Partial Class Ventas_ClientesAbonar
ErrorAC = True
End If
ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza)
If Not ErrorAC Then
ErrorAC = Not ObjConta.AjustaPoliza(IDPoliza)
End If
If Not ErrorAC Then
ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0)
End If
ErrorAC = Not ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0)
End If
End If