Compras no deducible, Clientes lineas de adicionales
This commit is contained in:
Oscar Irigoyen
@@ -7,6 +7,7 @@ Imports System.IO
|
||||
Imports System.Threading.Tasks
|
||||
Imports System.Xml
|
||||
Imports Extensiones
|
||||
Imports Microsoft.ReportingServices.DataProcessing
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
Partial Class Compras_Compras
|
||||
@@ -7318,35 +7319,35 @@ Partial Class Compras_Compras
|
||||
|
||||
If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
|
||||
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeMovimiento
|
||||
Pago.CveIE = Ant.CveIE
|
||||
Pago.TCPago = Ant.TCCompra
|
||||
Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
|
||||
Pago.OtroGastoIngreso = ImporComisionAnticipo
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeMovimiento
|
||||
Pago.CveIE = Ant.CveIE
|
||||
Pago.TCPago = Ant.TCCompra
|
||||
Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
|
||||
Pago.OtroGastoIngreso = ImporComisionAnticipo
|
||||
|
||||
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
'** PRUEBA CUANDO SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19 ** JM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
|
||||
'[IPP] NC NO DEBE REGISTRAR IMPUESTOS EN AMORTIZACIÓN 27/Agosto/2018
|
||||
|
||||
'If Not Ant.TipoMovto.Contiene("NC", "DEV") Then
|
||||
|
||||
' Dim Pago As New CompraPago
|
||||
' Pago.ImportePago = importeMovimiento
|
||||
' Pago.CveIE = Ant.CveIE
|
||||
' Pago.CveMonedaPago = 1
|
||||
|
||||
' ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, ObjConta)
|
||||
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
'** PRUEBA CUANDO SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19 ** JM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
|
||||
'[IPP] NC NO DEBE REGISTRAR IMPUESTOS EN AMORTIZACIÓN 27/Agosto/2018
|
||||
|
||||
'If Not Ant.TipoMovto.Contiene("NC", "DEV") Then
|
||||
|
||||
' Dim Pago As New CompraPago
|
||||
' Pago.ImportePago = importeMovimiento
|
||||
' Pago.CveIE = Ant.CveIE
|
||||
' Pago.CveMonedaPago = 1
|
||||
|
||||
' ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, ObjConta)
|
||||
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(83) Then
|
||||
'Unificacion de PrePolizas
|
||||
If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
|
||||
@@ -8567,8 +8568,20 @@ Partial Class Compras_Compras
|
||||
|
||||
Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
|
||||
|
||||
If CveFactura > 0 Then
|
||||
If Not AjustaCombustibles() Then
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'VALIDA IMPORTES
|
||||
If CveFactura > 0 Then 'SI NO VIENE DE FACTURA/XML NO VALIDA TOTALES
|
||||
|
||||
|
||||
|
||||
|
||||
If Not ValidaTotalesGuardar() Then
|
||||
Exit Sub
|
||||
End If
|
||||
@@ -9315,15 +9328,15 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
'Removemos los conceptos de la prepoliza
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) 'GASTO
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 68, CveCompra, 1) 'ALMACEN
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 49, CveCompra, 1) 'AF
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 205, CveCompra, 1) 'PS YA RECIBIDO
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 230, CveCompra, 1) 'PS YA RECIBIDO
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 231, CveCompra, 1) 'PS YA RECIBIDO
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 176, CveCompra, 1) 'PS NO RECIBIDO
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 228, CveCompra, 1) 'PS NO RECIBIDO
|
||||
ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 229, CveCompra, 1) 'PS NO RECIBIDO
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 68, CveCompra, 1) Then ErrorPrepoliza = True 'ALMACEN
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 49, CveCompra, 1) Then ErrorPrepoliza = True 'AF
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 205, CveCompra, 1) Then ErrorPrepoliza = True 'PS YA RECIBIDO
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 230, CveCompra, 1) Then ErrorPrepoliza = True 'PS YA RECIBIDO
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 231, CveCompra, 1) Then ErrorPrepoliza = True 'PS YA RECIBIDO
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 176, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 228, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO
|
||||
If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 229, CveCompra, 1) Then ErrorPrepoliza = True 'PS NO RECIBIDO
|
||||
|
||||
'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR
|
||||
Dim ConceptoContabilizacionAlmacen = 0
|
||||
@@ -16163,7 +16176,14 @@ Partial Class Compras_Compras
|
||||
RetIVA = TmpDT.SUM("RetIVA")
|
||||
RetISR = TmpDT.SUM("RetISR")
|
||||
IEPSPS = TmpDT.SUM("IEPSPS")
|
||||
IVA = If(TmpDT.SUM("IVA") > 0, SubTotalIVA + SubTotalIEPSIVA, 0)
|
||||
|
||||
If CveCompra > 0 AndAlso CveFactura > 0 Then
|
||||
IVA = TxtIVA.Text.ToDecimal
|
||||
Else
|
||||
IVA = If(TmpDT.SUM("IVA") > 0, SubTotalIVA + SubTotalIEPSIVA, 0)
|
||||
End If
|
||||
|
||||
|
||||
'If CalculaIVA Then IVA = TxtIVA.Text.ToDouble
|
||||
Descuentos = TmpDT.SUM("Descuento")
|
||||
|
||||
|
||||
Reference in New Issue
Block a user