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

-- manejo de no deducibles.

Browse Source 
-- prorrateo 8.5
This commit is contained in:
rrene
2023-05-28 19:58:21 -07:00
parent 0d1f4527a2
commit 85074b8b05
7 changed files with 3039 additions and 200 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2991
Bancos/ClientesAbonar.aspx.vb Normal file
View File

File diff suppressed because it is too large Load Diff

16
Bancos/PopIECompras.aspx.vb
View File

@@ -637,6 +637,7 @@ Partial Class Bancos_PopIECompras
CompraActual.IdCtaContableProv = CtaProveedor
CompraActual.IdCtaContableProvComplementaria = IdCtaProveedorExtranjera
CompraActual.EsImportacion = CBool(dr("EsImportacion"))
CompraActual.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero
If Validada Then
TxtFolio.Enabled = True
@@ -1606,23 +1607,10 @@ Partial Class Bancos_PopIECompras
End Select
Dim ObjConta As ClsContPAQi = Nothing
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, 5, UsuarioActual) Then
If ObjMov.ValorPolizaDescuadre > 0 Then
MsgError = ObjMov.MensajePolizaDescuadre
GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
Else
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
ObjConta.IniciaTransacSQL()
End If
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
IdPoliza = ObjMov.ContaIdPoliza
Else
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
End If
End If
End If
End If