-- ivadeducible
This commit is contained in:
@@ -8378,63 +8378,36 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
Dim CveCompraNC, IdCtaContable As Integer
|
||||
|
||||
Dim PorcentajePago, ImporteMovimiento, sumaAmortizacion, sumaAmortizacionCompleto As Decimal
|
||||
Dim PorcentajePago As Decimal
|
||||
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
|
||||
Dim CveIE As Integer = -1
|
||||
|
||||
|
||||
|
||||
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
|
||||
If CvePrePoliza > 0 Then
|
||||
CveCompraNC = gvr.DataKey("CveCompra").ToEntero
|
||||
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
|
||||
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
|
||||
PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
|
||||
|
||||
|
||||
Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
|
||||
@@ -8455,7 +8428,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = ImporteAnt
|
||||
Pago.CveIE = CveIE
|
||||
@@ -8475,6 +8447,7 @@ Partial Class Compras_Compras
|
||||
CompraActual.TC = TipoCambio
|
||||
CompraActual.Total = TxtTotal.Text.ToDecimal
|
||||
CompraActual.IVA = TxtIVA.Text.ToDecimal
|
||||
CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
|
||||
CompraActual.IEPS = TxtIEPS.Text.ToDecimal
|
||||
CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
|
||||
CompraActual.RetISR = TxtRetISR.Text.ToDecimal
|
||||
@@ -8487,37 +8460,19 @@ Partial Class Compras_Compras
|
||||
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
|
||||
CompraActual.EsImportacion = chkImportacion.Checked
|
||||
|
||||
|
||||
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
|
||||
|
||||
Next
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
|
||||
|
||||
|
||||
Select Case ErrorMovtosCxP
|
||||
Select Case ErrorMovtosCxP
|
||||
Case 0
|
||||
Alert("El movimiento se aplicó correctamente.", TipoMensaje.MsgInformacion)
|
||||
ObjCompra.Commit()
|
||||
|
||||
|
||||
Dim dtnc As DataTable = Nothing
|
||||
If ObjCompra.GetComprasNotasCredito(CveCompra, -1) Then
|
||||
dtnc = ObjCompra.DtResultados
|
||||
|
||||
@@ -696,6 +696,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
CompraActual.Total = gvr.DataKey("Total").ToDecimal
|
||||
CompraActual.IVA = gvr.DataKey("IVA").ToDecimal
|
||||
CompraActual.IVADeducible = gvr.DataKey("IVADeducible").ToDecimal
|
||||
CompraActual.IVANoDeducible = gvr.DataKey("IVANoDeducible").ToDecimal
|
||||
CompraActual.IEPS = gvr.DataKey("IEPS").ToDecimal
|
||||
CompraActual.RetIVA = gvr.DataKey("RetIVA").ToDecimal
|
||||
CompraActual.RetISR = gvr.DataKey("RetISR").ToDecimal
|
||||
@@ -844,6 +845,7 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
If MsgError <> "" Then Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Reference in New Issue
Block a user