From b68976a4ce990a9eb81523832b401e683ff9cb60 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 20 Aug 2024 06:28:26 -0700 Subject: [PATCH] -- conceptos de pago en anticipo de clientes --- App_Code/ClsPaginas.vb | 24 ++++++++++++++++++++---- 1 file changed, 20 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2e5a4205a..15bd17430 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9199,7 +9199,7 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 312, 309) Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 206, 310) End Select - Case 11 ' anticipos + Case 11 ' anticipos proveedores/acreedores Select Case CveMoneda Case 1 'pesos Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 21, 56) @@ -9207,7 +9207,7 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 339, 346) Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 340, 347) End Select - Case 15 ' notas de crédito + Case 15 ' notas de crédito proveedores/acreedores Select Case CveMoneda Case 1 'pesos Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 60, 324) @@ -9239,6 +9239,14 @@ Public Class ClsPaginas Retorno.CveConcepto = 92 'falta nuevo concepto Retorno.CveConceptoComplementario = 332 End Select + Case 12 ' anticipos de clientes + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = 11 + Case 2 'dólares + Retorno.CveConcepto = 296 + Retorno.CveConceptoComplementario = 227 + End Select End Select Else 'cuando es la provisión Select Case CveTipoSaldo @@ -9250,7 +9258,7 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 311, 306) Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 201, 307) End Select - Case 11 ' anticipos + Case 11 ' anticipos proveedores/acreedores Select Case CveMoneda Case 1 'pesos Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 10, 48) @@ -9258,7 +9266,7 @@ Public Class ClsPaginas Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 338, 345) Retorno.CveConceptoComplementario = If(CveTipoProveedorTipoDocto = 1, 340, 347) End Select - Case 15 ' notas de crédito + Case 15 ' notas de crédito proveedores/acreedores Select Case CveMoneda Case 1 'pesos Retorno.CveConcepto = If(CveTipoProveedorTipoDocto = 1, 18, 323) @@ -9290,6 +9298,14 @@ Public Class ClsPaginas Retorno.CveConcepto = 66 'falta nuevo concepto Retorno.CveConceptoComplementario = 332 End Select + Case 12 ' anticipos de clientes + Select Case CveMoneda + Case 1 'pesos + Retorno.CveConcepto = 3 + Case 2 'dólares + Retorno.CveConcepto = 295 + Retorno.CveConceptoComplementario = 226 + End Select End Select End If