-- ivadeducible
This commit is contained in:
@@ -8378,63 +8378,36 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
Dim CveCompraNC, IdCtaContable As Integer
|
Dim CveCompraNC, IdCtaContable As Integer
|
||||||
|
Dim PorcentajePago As Decimal
|
||||||
Dim PorcentajePago, ImporteMovimiento, sumaAmortizacion, sumaAmortizacionCompleto As Decimal
|
|
||||||
Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}"
|
Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}"
|
||||||
Dim CompraUnificada As Boolean = False
|
|
||||||
Dim IVACompleto As Boolean = False
|
|
||||||
Dim IdCtaIVAXAcreditar As Integer = 0
|
|
||||||
Dim IdCtaIVAAcreditable As Integer = 0
|
|
||||||
'PorcentajeIVA
|
|
||||||
If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("IVAPorcentaje").ToDouble).Rows.Count > 0 Then
|
|
||||||
IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("IVAPorcentaje").ToDouble).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
|
||||||
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("IVAPorcentaje").ToDouble).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
|
||||||
End If
|
|
||||||
|
|
||||||
Try
|
Try
|
||||||
Dim CveIE As Integer = -1
|
Dim CveIE As Integer = -1
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
For Each gvr As GridViewRow In GVAnticipos.Rows
|
For Each gvr As GridViewRow In GVAnticipos.Rows
|
||||||
If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
|
If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
|
||||||
|
|
||||||
CveCompraNC = gvr.DataKey("CveCompra").ToEntero
|
CveCompraNC = gvr.DataKey("CveCompra").ToEntero
|
||||||
If CvePrePoliza > 0 Then
|
If CvePrePoliza > 0 Then
|
||||||
|
|
||||||
Dim CveConceptoCompra As Integer = 60
|
Dim CveConceptoCompra As Integer = 60
|
||||||
|
Dim TipoMovimientoCompra As Boolean = True
|
||||||
|
Select Case gvr.DataKey("TipoDocto")
|
||||||
|
Case "NC", "DEV"
|
||||||
|
CveConceptoCompra = 60
|
||||||
|
CveIE = -1
|
||||||
|
Case "Egsc"
|
||||||
|
CveConceptoCompra = 21
|
||||||
|
'vinculo la compra actual, y no la compra como si fuera nota de credito
|
||||||
|
CveCompraNC = -1
|
||||||
|
CveIE = gvr.DataKey("CveIE").ToEntero
|
||||||
|
Case "DD"
|
||||||
|
CveConceptoCompra = 37
|
||||||
|
'vinculo la compra actual, y no la compra como si fuera nota de credito
|
||||||
|
CveCompraNC = -1
|
||||||
|
CveIE = gvr.DataKey("CveIE").ToEntero
|
||||||
|
End Select
|
||||||
|
|
||||||
Dim CveConceptoPago As Integer = 17
|
PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
|
||||||
If CveTipoConcepto = 2 Then CveConceptoPago = 308 'cuando es acreedor
|
|
||||||
If CveMoneda <> 1 Then
|
|
||||||
Select Case CveConceptoPago
|
|
||||||
Case 17
|
|
||||||
CveConceptoPago = 312
|
|
||||||
Case 308
|
|
||||||
CveConceptoPago = 309
|
|
||||||
Case Else
|
|
||||||
End Select
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim TipoMovimientoCompra As Boolean = True
|
|
||||||
Select Case gvr.DataKey("TipoDocto")
|
|
||||||
Case "NC", "DEV"
|
|
||||||
CveConceptoCompra = 60
|
|
||||||
CveIE = -1
|
|
||||||
CveConceptoPago = 272
|
|
||||||
Case "Egsc"
|
|
||||||
CveConceptoCompra = 21
|
|
||||||
'vinculo la compra actual, y no la compra como si fuera nota de credito
|
|
||||||
CveCompraNC = -1
|
|
||||||
CveIE = gvr.DataKey("CveIE").ToEntero
|
|
||||||
Case "DD"
|
|
||||||
CveConceptoCompra = 37
|
|
||||||
'vinculo la compra actual, y no la compra como si fuera nota de credito
|
|
||||||
CveCompraNC = -1
|
|
||||||
CveIE = gvr.DataKey("CveIE").ToEntero
|
|
||||||
End Select
|
|
||||||
|
|
||||||
PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
|
|
||||||
|
|
||||||
|
|
||||||
Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
|
Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
|
||||||
@@ -8455,7 +8428,6 @@ Partial Class Compras_Compras
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Dim Pago As New CompraPago
|
Dim Pago As New CompraPago
|
||||||
Pago.ImportePago = ImporteAnt
|
Pago.ImportePago = ImporteAnt
|
||||||
Pago.CveIE = CveIE
|
Pago.CveIE = CveIE
|
||||||
@@ -8475,6 +8447,7 @@ Partial Class Compras_Compras
|
|||||||
CompraActual.TC = TipoCambio
|
CompraActual.TC = TipoCambio
|
||||||
CompraActual.Total = TxtTotal.Text.ToDecimal
|
CompraActual.Total = TxtTotal.Text.ToDecimal
|
||||||
CompraActual.IVA = TxtIVA.Text.ToDecimal
|
CompraActual.IVA = TxtIVA.Text.ToDecimal
|
||||||
|
CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
|
||||||
CompraActual.IEPS = TxtIEPS.Text.ToDecimal
|
CompraActual.IEPS = TxtIEPS.Text.ToDecimal
|
||||||
CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
|
CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
|
||||||
CompraActual.RetISR = TxtRetISR.Text.ToDecimal
|
CompraActual.RetISR = TxtRetISR.Text.ToDecimal
|
||||||
@@ -8487,37 +8460,19 @@ Partial Class Compras_Compras
|
|||||||
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
|
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
|
||||||
CompraActual.EsImportacion = chkImportacion.Checked
|
CompraActual.EsImportacion = chkImportacion.Checked
|
||||||
|
|
||||||
|
|
||||||
AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta)
|
AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
'If gvr.DataKey("TipoDocto").Contiene("NC", "DEV") Then
|
|
||||||
' If Not ObjCompra.AmortizarCompra(CveCompra, CveCompraNC, gvr.FCTextBox("TxtAnticipo").Text.ToDouble, UsuarioActual.CveUsuario) Then
|
|
||||||
' ErrorMovtosCxP = 2
|
|
||||||
' Exit For
|
|
||||||
|
|
||||||
' End If
|
|
||||||
|
|
||||||
'End If
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Next
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
Select Case ErrorMovtosCxP
|
||||||
|
|
||||||
|
|
||||||
Select Case ErrorMovtosCxP
|
|
||||||
Case 0
|
Case 0
|
||||||
Alert("El movimiento se aplicó correctamente.", TipoMensaje.MsgInformacion)
|
Alert("El movimiento se aplicó correctamente.", TipoMensaje.MsgInformacion)
|
||||||
ObjCompra.Commit()
|
ObjCompra.Commit()
|
||||||
|
|
||||||
|
|
||||||
Dim dtnc As DataTable = Nothing
|
Dim dtnc As DataTable = Nothing
|
||||||
If ObjCompra.GetComprasNotasCredito(CveCompra, -1) Then
|
If ObjCompra.GetComprasNotasCredito(CveCompra, -1) Then
|
||||||
dtnc = ObjCompra.DtResultados
|
dtnc = ObjCompra.DtResultados
|
||||||
|
|||||||
@@ -696,6 +696,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
CompraActual.Total = gvr.DataKey("Total").ToDecimal
|
CompraActual.Total = gvr.DataKey("Total").ToDecimal
|
||||||
CompraActual.IVA = gvr.DataKey("IVA").ToDecimal
|
CompraActual.IVA = gvr.DataKey("IVA").ToDecimal
|
||||||
CompraActual.IVADeducible = gvr.DataKey("IVADeducible").ToDecimal
|
CompraActual.IVADeducible = gvr.DataKey("IVADeducible").ToDecimal
|
||||||
|
CompraActual.IVANoDeducible = gvr.DataKey("IVANoDeducible").ToDecimal
|
||||||
CompraActual.IEPS = gvr.DataKey("IEPS").ToDecimal
|
CompraActual.IEPS = gvr.DataKey("IEPS").ToDecimal
|
||||||
CompraActual.RetIVA = gvr.DataKey("RetIVA").ToDecimal
|
CompraActual.RetIVA = gvr.DataKey("RetIVA").ToDecimal
|
||||||
CompraActual.RetISR = gvr.DataKey("RetISR").ToDecimal
|
CompraActual.RetISR = gvr.DataKey("RetISR").ToDecimal
|
||||||
@@ -844,6 +845,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
|||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
If MsgError <> "" Then Exit For
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
|
|||||||
Reference in New Issue
Block a user