-- cambios aplicación de NC/Anticipos
This commit is contained in:
@@ -8397,64 +8397,12 @@ Partial Class Compras_Compras
|
|||||||
ObjConta = New ClsContabilidad(ObjCompra.IniciaTransacSQL)
|
ObjConta = New ClsContabilidad(ObjCompra.IniciaTransacSQL)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim CveCompraNC, IdCtaContable As Integer
|
Dim CveCompraNC, IdCtaContable, IdCtaContableComp As Integer
|
||||||
Dim PorcentajePago As Decimal
|
Dim PorcentajePago As Decimal
|
||||||
Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}"
|
Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}"
|
||||||
|
|
||||||
Try
|
Try
|
||||||
Dim CveIE As Integer = -1
|
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
|
|
||||||
|
|
||||||
CveCompraNC = gvr.DataKey("CveCompra").ToEntero
|
|
||||||
If CvePrePoliza > 0 Then
|
|
||||||
|
|
||||||
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
|
|
||||||
|
|
||||||
PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
|
|
||||||
|
|
||||||
|
|
||||||
Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
|
|
||||||
Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal
|
|
||||||
Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero
|
|
||||||
Dim TipoCambioAnt As Decimal = gvr.DataKey("TCCompra").ToDecimal
|
|
||||||
|
|
||||||
If ImporComisionAnticipo = 0 Then
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, ImporteAnt, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, CveCompraAmortizacion:=CveCompraNC, ImporteMX:=ImporteAnt, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), CveSubProyecto:=CveSubProyectoAnticipo) Then
|
|
||||||
ErrorMovtosCxP = 1
|
|
||||||
Exit For
|
|
||||||
End If
|
|
||||||
Else
|
|
||||||
Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
|
|
||||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), CveSubProyecto:=CveSubProyectoAnticipo) Then
|
|
||||||
ErrorMovtosCxP = 1
|
|
||||||
ErrorMovtosCxP = 1
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
Dim Pago As New CompraPago
|
|
||||||
Pago.ImportePago = ImporteAnt
|
|
||||||
Pago.CveIE = CveIE
|
|
||||||
Pago.CveMonedaPago = CveMonedaAnticipo
|
|
||||||
Pago.CveCompraAmortizacion = CveCompraNC
|
|
||||||
Pago.CveCreditoDetalle = -1
|
|
||||||
Pago.OtroGastoIngreso = ImporComisionAnticipo
|
|
||||||
|
|
||||||
Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
|
Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
|
||||||
Dim CompraActual As New Compra
|
Dim CompraActual As New Compra
|
||||||
@@ -8481,6 +8429,66 @@ Partial Class Compras_Compras
|
|||||||
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
|
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
|
||||||
CompraActual.EsImportacion = chkImportacion.Checked
|
CompraActual.EsImportacion = chkImportacion.Checked
|
||||||
|
|
||||||
|
For Each gvr As GridViewRow In GVAnticipos.Rows
|
||||||
|
If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
|
||||||
|
|
||||||
|
CveCompraNC = gvr.DataKey("CveCompra").ToEntero
|
||||||
|
If CvePrePoliza > 0 Then
|
||||||
|
|
||||||
|
Dim CveConceptoCompra As Integer = 60
|
||||||
|
Dim CveConceptoCompraComplementaria As Integer = 266
|
||||||
|
Dim TipoMovimientoCompra As Boolean = True
|
||||||
|
Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero
|
||||||
|
Dim TipoCambioAnt As Decimal = gvr.DataKey("TCCompra").ToDecimal
|
||||||
|
Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
|
||||||
|
Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal
|
||||||
|
|
||||||
|
Dim Pago As New CompraPago
|
||||||
|
Pago.TipoPago = gvr.DataKey("TipoDocto")
|
||||||
|
Pago.ImportePago = ImporteAnt
|
||||||
|
Pago.OtroGastoIngreso = ImporComisionAnticipo
|
||||||
|
Pago.CveMonedaPago = CveMonedaAnticipo
|
||||||
|
|
||||||
|
Select Case gvr.DataKey("TipoDocto")
|
||||||
|
Case "NC", "DEV"
|
||||||
|
CveConceptoCompra = If(CveMonedaAnticipo = 1, 60, 60)
|
||||||
|
CveConceptoCompraComplementaria = 235
|
||||||
|
IdCtaContable = If(CveMonedaAnticipo = 1, CtaProveedor, CtaProveedorExtranjera)
|
||||||
|
IdCtaContableComp = CtaProveedorComplementaria
|
||||||
|
CveIE = -1
|
||||||
|
Pago.AplicaAcreditable = False
|
||||||
|
Case "Egsc"
|
||||||
|
CveConceptoCompra = If(CveMonedaAnticipo = 1, 21, 21)
|
||||||
|
CveConceptoCompraComplementaria = 266
|
||||||
|
IdCtaContable = If(CveMonedaAnticipo = 1, CtaProveedorAnticipos, CtaProveedorAnticiposExtranjera)
|
||||||
|
IdCtaContableComp = CtaProveedorAnticiposComplementaria
|
||||||
|
'vinculo la compra actual, y no la compra como si fuera nota de credito
|
||||||
|
CveCompraNC = -1
|
||||||
|
CveIE = gvr.DataKey("CveIE").ToEntero
|
||||||
|
Case "DD"
|
||||||
|
CveConceptoCompra = If(CveMonedaAnticipo = 1, 37, 37)
|
||||||
|
IdCtaContable = CtaProveedorDeudores
|
||||||
|
'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 ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), CveSubProyecto:=CveSubProyectoAnticipo) Then
|
||||||
|
ErrorMovtosCxP = 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
If CveMonedaAnticipo > 1 Then
|
||||||
|
Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt
|
||||||
|
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), CveSubProyecto:=CveSubProyectoAnticipo) Then
|
||||||
|
ErrorMovtosCxP = 1
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Pago.CveIE = CveIE
|
||||||
|
Pago.CveCompraAmortizacion = CveCompraNC
|
||||||
AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta)
|
AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta)
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|||||||
Reference in New Issue
Block a user