- concepto egscredito

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