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

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

Browse Source
This commit is contained in:
rakcsle
2021-02-05 15:46:12 -07:00
parent 92177a4518 c481a8af4d
commit 64561930fe
19 changed files with 8412 additions and 8353 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Bancos/PopIECompras.aspx.vb
View File

@@ -122,6 +122,14 @@ Partial Class Bancos_PopIECompras
Set(value As Integer)
ViewState("IdCuentaBancaria") = value
End Set
End Property
Private Property IdCuentaBancariaComplementaria As Integer
Get
Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero
End Get
Set(value As Integer)
ViewState("IdCuentaBancariaComplementaria") = value
End Set
End Property
Private ReadOnly Property IdCtaContMonedaExtranjera As Integer
Get
@@ -482,6 +490,7 @@ Partial Class Bancos_PopIECompras
ViewState("IdCtaContRetIVA") = 0
ViewState("IdCtaContRetISR") = 0
ViewState("IdCuentaBancaria") = 0
ViewState("IdCuentaBancariaComplementaria") = 0
ViewState("IdCtaAnticipo") = 0
ViewState("CveCuentaMonedaExtranjera") = 0
@@ -1107,9 +1116,9 @@ Partial Class Bancos_PopIECompras
RegistraScript("CambiaDolaresPesos();")
End If
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
If dr("UsaTarjeta").ToString = "True" Then
CargaGridTarjetas()
Else
@@ -2814,15 +2823,13 @@ Partial Class Bancos_PopIECompras
CveCuenta = CveCuentaCliente
End If
Else
IdCtaContable = IdCtaContComplementaria
CveCuenta = CveCuentaComplementaria
IdCtaContable = IdCuentaBancariaComplementaria
If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 204, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago, CveCuenta:=CveCuenta) Then
MsgError = "No se pudo insertar la póliza"
End If
ImporteMX = ImporteMovimiento
IdCtaContable = IdCtaContMonedaExtranjera
CveCuenta = CveCuentaMonedaExtranjera
IdCtaContable = IdCuentaBancaria
End If
End If