From bf741a1c60a94ca1bd8afa7e1915cbc4a49044cb Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 6 May 2024 18:43:42 -0700 Subject: [PATCH] -- registro de tipoconcepto cuando es proveedore:tipo ambos --- Compras/Compras.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4adaacd27..d9e795b6f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5678,7 +5678,7 @@ Partial Class Compras_Compras Dim CveConceptoAfectacion As Integer = 5 'Proveedores Dim CveConceptoOriginal As Integer - If CveTipoConcepto = 2 Then CveConceptoAfectacion = 305 'cuando es acreedor + If CveTipoConcepto <> 1 Then CveConceptoAfectacion = 305 'cuando es acreedor If CveMoneda <> 1 Then Select Case CveConceptoAfectacion Case 5 @@ -5690,7 +5690,7 @@ Partial Class Compras_Compras End If Dim CveConceptoAfectacionContado As Integer = 17 'Pago Proveedores - If CveTipoConcepto = 2 Then CveConceptoAfectacionContado = 308 'cuando es acreedor + If CveTipoConcepto <> 1 Then CveConceptoAfectacionContado = 308 'cuando es acreedor If CveMoneda <> 1 Then Select Case CveConceptoAfectacionContado Case 17 @@ -6010,7 +6010,7 @@ Partial Class Compras_Compras Case 17 'Pago Proveedores - If CveTipoConcepto = 2 Then ConceptoContable = 308 'cuando es acreedor + If CveTipoConcepto <> 1 Then ConceptoContable = 308 'cuando es acreedor If CveMoneda <> 1 Then Select Case ConceptoContable Case 17 @@ -6114,7 +6114,7 @@ Partial Class Compras_Compras If importeMovimiento <> 0 Then 'Cuando tiene complementaria lo dividimos en dos Dim CveConceptoContableComplementaria As Integer = 206 - If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor + If CveTipoConcepto <> 1 Then CveConceptoContableComplementaria = 310 'cuando es acreedor importeMN = importeMovimiento If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, CveConceptoContableComplementaria, Referencia, Concepto, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=TipoCambioCompra) Then @@ -6890,7 +6890,7 @@ Partial Class Compras_Compras importeMovimiento = 0 End If Case 5 'Proveedores - If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor + If CveTipoConcepto <> 1 Then ConceptoContable = 305 'cuando es acreedor Dim UsaComplementaria As Boolean = True If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComplementaria = False @@ -6911,7 +6911,7 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" Dim CveConceptoContableComplementaria As Integer = 201 - If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307 + If CveTipoConcepto <> 1 Then CveConceptoContableComplementaria = 307 If tipoCambioActual <> 1 Then