-- cambios aplicación de NC/Anticipos
This commit is contained in:
@@ -8397,12 +8397,38 @@ 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
|
||||||
|
|
||||||
|
Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
|
||||||
|
Dim CompraActual As New Compra
|
||||||
|
CompraActual.CveCompra = CveCompra
|
||||||
|
CompraActual.CveTipoConceptoProveedor = CveTipoConcepto
|
||||||
|
CompraActual.CveProveedor = CveProveedor
|
||||||
|
CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero
|
||||||
|
CompraActual.Fecha = TxtFecha.Text.ToDate
|
||||||
|
CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
|
||||||
|
CompraActual.ProveedorNombre = HplProveedor.Text
|
||||||
|
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
|
||||||
|
CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero
|
||||||
|
CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero
|
||||||
|
CompraActual.PorcentajeIVA = PorcentajeIVA
|
||||||
|
CompraActual.UsuarioActual = UsuarioActual
|
||||||
|
CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
|
||||||
|
CompraActual.IdCtaContableProv = CtaProveedor
|
||||||
|
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
|
||||||
|
CompraActual.EsImportacion = chkImportacion.Checked
|
||||||
|
|
||||||
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
|
||||||
|
|
||||||
@@ -8410,18 +8436,38 @@ Partial Class Compras_Compras
|
|||||||
If CvePrePoliza > 0 Then
|
If CvePrePoliza > 0 Then
|
||||||
|
|
||||||
Dim CveConceptoCompra As Integer = 60
|
Dim CveConceptoCompra As Integer = 60
|
||||||
|
Dim CveConceptoCompraComplementaria As Integer = 266
|
||||||
Dim TipoMovimientoCompra As Boolean = True
|
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")
|
Select Case gvr.DataKey("TipoDocto")
|
||||||
Case "NC", "DEV"
|
Case "NC", "DEV"
|
||||||
CveConceptoCompra = 60
|
CveConceptoCompra = If(CveMonedaAnticipo = 1, 60, 60)
|
||||||
|
CveConceptoCompraComplementaria = 235
|
||||||
|
IdCtaContable = If(CveMonedaAnticipo = 1, CtaProveedor, CtaProveedorExtranjera)
|
||||||
|
IdCtaContableComp = CtaProveedorComplementaria
|
||||||
CveIE = -1
|
CveIE = -1
|
||||||
|
Pago.AplicaAcreditable = False
|
||||||
Case "Egsc"
|
Case "Egsc"
|
||||||
CveConceptoCompra = 21
|
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
|
'vinculo la compra actual, y no la compra como si fuera nota de credito
|
||||||
CveCompraNC = -1
|
CveCompraNC = -1
|
||||||
CveIE = gvr.DataKey("CveIE").ToEntero
|
CveIE = gvr.DataKey("CveIE").ToEntero
|
||||||
Case "DD"
|
Case "DD"
|
||||||
CveConceptoCompra = 37
|
CveConceptoCompra = If(CveMonedaAnticipo = 1, 37, 37)
|
||||||
|
IdCtaContable = CtaProveedorDeudores
|
||||||
'vinculo la compra actual, y no la compra como si fuera nota de credito
|
'vinculo la compra actual, y no la compra como si fuera nota de credito
|
||||||
CveCompraNC = -1
|
CveCompraNC = -1
|
||||||
CveIE = gvr.DataKey("CveIE").ToEntero
|
CveIE = gvr.DataKey("CveIE").ToEntero
|
||||||
@@ -8429,58 +8475,20 @@ Partial Class Compras_Compras
|
|||||||
|
|
||||||
PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
|
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
|
||||||
|
|
||||||
Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
|
If CveMonedaAnticipo > 1 Then
|
||||||
Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal
|
Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt
|
||||||
Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero
|
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
|
||||||
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
|
ErrorMovtosCxP = 1
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim Pago As New CompraPago
|
|
||||||
Pago.ImportePago = ImporteAnt
|
|
||||||
Pago.CveIE = CveIE
|
Pago.CveIE = CveIE
|
||||||
Pago.CveMonedaPago = CveMonedaAnticipo
|
|
||||||
Pago.CveCompraAmortizacion = CveCompraNC
|
Pago.CveCompraAmortizacion = CveCompraNC
|
||||||
Pago.CveCreditoDetalle = -1
|
|
||||||
Pago.OtroGastoIngreso = ImporComisionAnticipo
|
|
||||||
|
|
||||||
Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
|
|
||||||
Dim CompraActual As New Compra
|
|
||||||
CompraActual.CveCompra = CveCompra
|
|
||||||
CompraActual.CveTipoConceptoProveedor = CveTipoConcepto
|
|
||||||
CompraActual.CveProveedor = CveProveedor
|
|
||||||
CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero
|
|
||||||
CompraActual.Fecha = TxtFecha.Text.ToDate
|
|
||||||
CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
|
|
||||||
CompraActual.ProveedorNombre = HplProveedor.Text
|
|
||||||
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
|
|
||||||
CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero
|
|
||||||
CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero
|
|
||||||
CompraActual.PorcentajeIVA = PorcentajeIVA
|
|
||||||
CompraActual.UsuarioActual = UsuarioActual
|
|
||||||
CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
|
|
||||||
CompraActual.IdCtaContableProv = CtaProveedor
|
|
||||||
CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
|
|
||||||
CompraActual.EsImportacion = chkImportacion.Checked
|
|
||||||
|
|
||||||
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