From cef363fd84f39e56b6884dbfaa9bbbe249b442be Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Tue, 15 Oct 2019 10:55:59 -0700
Subject: [PATCH] Compras Notas de credito concepto 225 , si tiene devolucion
 mete concepto 225  , ni no tiene se mete el 6

---
 Compras/Compras.aspx.vb | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 059d27dce..622ae3546 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4283,7 +4283,9 @@ Partial Class Compras_Compras
                                         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                                             CveConceptoContableAlmacen = 205
                                         End If
-                                    Else
+                                    Else
+
+
                                         CveConceptoContableAlmacen = 225
                                     End If
 
@@ -6299,7 +6301,7 @@ Partial Class Compras_Compras
 
                                                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
-                                                                    If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
+                                                                    If importeMovimiento > 0 And ChkNCInvNC.Checked Or TxtTotal.Text.ToDecimal = 0 And ChkNCInvNC.Checked Then
                                                                         RegistroCuentaPuente = True
                                                                         'Conta ContPAQ
                                                                         If IdCtaContable = 0 Then
@@ -6343,10 +6345,12 @@ Partial Class Compras_Compras
                                                                     End If
 
 
-                                                                End If
-
-
-
+                                                                End If
+
+
+                                                                ' adfasdasd
+                                                                'ChkNCInvNC
+
                                                                 If Not ChkNCInvNC.Checked OrElse Not RegistroCuentaPuente Then
                                                                     'GASTO
                                                                     If UsuarioActual.CveEmpresa = 119 Then
@@ -9653,7 +9657,8 @@ Partial Class Compras_Compras
                         End If
 
                         'NC CON PRODUCTOS - CUENTA PUENTE
-                        If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(225) Then
+
+                        If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(225) Then
                             importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                             importeMN = importeMovimiento * tipoCambioActual * Multiplicador