From 8be78785c163647449efac54aac8a3265a74326c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 29 May 2023 17:38:29 -0700
Subject: [PATCH] - concepto egscredito

---
 Bancos/IE.aspx.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 72d33c057..d944e15da 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2610,15 +2610,19 @@ Partial Class Bancos_IE
 
             'Cuando es Egreso sin factura, se registra una compra tipo anticipo
             If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString = "EGSCREDITO" Then
-                CveConceptoCompra = 48 'Anticipo Acreedores
+                CveConceptoCompra = 10 'Anticipo Acreedores
                 CveConceptoContable = 30 'Bancos
                 CveCreditoDetalle = DdlCreditoDetalle.SelectedValue.ToEntero
                 Dim Estatus As Integer = 2
-                If HdnCveTipoCredito.Value = "1" Then
+                Dim tesCrediproveedor As Boolean = False
+                'falta especificar que deterina esta consideración en SIG
+                If HdnCveTipoCredito.Value = "1" AndAlso tesCrediproveedor Then
                     Estatus = 103
                     'cuando es crediproveedores es, pago a documentos por pagar
                     CveConceptoCompra = 57
                 End If
+
+
                 ObjIE.UpdateCreditosDetalle(Estatus, CveCreditoDetalle)
 
                 If HdnImporteCredito.Value.ToDouble > 0 AndAlso TxtImporte.Text.ToDouble > HdnImporteCredito.Value.ToDouble Then