From c343bef7dc25fe383fd3aa3ab3a43e95acf28865 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 11 Aug 2020 17:57:35 -0700 Subject: [PATCH] - se agregan referncia a nuevos conceptos de prov y clientes, al mandar contabilizar --- App_Code/ClsContabilidad.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index c84577b78..5ce542163 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -1211,11 +1211,11 @@ Public Class ClsContabilidad CveConceptoContable = dr("CveConceptoContable").ToString().ToEntero Select Case CveConceptoContable - Case 6, 5, 17, 14, 19, 15, 16, 272, 275 + Case 6, 5, 17, 14, 19, 15, 16, 272, 275, 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 316 SigReferencia = dr("CveCompra").ToString.ContaReferencia(TipoContaReferencia.Compra) - Case 2, 4, 1, 13, 61, 62, 63, 8, 9, 91, 251, 226 + Case 2, 4, 1, 13, 61, 62, 63, 8, 9, 91, 251, 226, 291, 292, 293, 294, 295, 296 SigReferencia = dr("CveVenta").ToString.ContaReferencia(TipoContaReferencia.Venta) - Case 30, 66, 92 + Case 30, 66, 92, 204 SigReferencia = dr("CveIE").ToString.ContaReferencia(TipoContaReferencia.Banco) End Select