AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- registro de tipoconcepto cuando es proveedore:tipo ambos

Browse Source
This commit is contained in:
rrene
2024-05-06 18:43:42 -07:00
parent 7ea9d8f11a
commit bf741a1c60
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Compras/Compras.aspx.vb
View File

@@ -5678,7 +5678,7 @@ Partial Class Compras_Compras
Dim CveConceptoAfectacion As Integer = 5 'Proveedores Dim CveConceptoAfectacion As Integer = 5 'Proveedores
Dim CveConceptoOriginal As Integer Dim CveConceptoOriginal As Integer
If CveTipoConcepto = 2 Then CveConceptoAfectacion = 305 'cuando es acreedor If CveTipoConcepto <> 1 Then CveConceptoAfectacion = 305 'cuando es acreedor
If CveMoneda <> 1 Then If CveMoneda <> 1 Then
Select Case CveConceptoAfectacion Select Case CveConceptoAfectacion
Case 5 Case 5
@@ -5690,7 +5690,7 @@ Partial Class Compras_Compras
End If End If
Dim CveConceptoAfectacionContado As Integer = 17 'Pago Proveedores Dim CveConceptoAfectacionContado As Integer = 17 'Pago Proveedores
If CveTipoConcepto = 2 Then CveConceptoAfectacionContado = 308 'cuando es acreedor If CveTipoConcepto <> 1 Then CveConceptoAfectacionContado = 308 'cuando es acreedor
If CveMoneda <> 1 Then If CveMoneda <> 1 Then
Select Case CveConceptoAfectacionContado Select Case CveConceptoAfectacionContado
Case 17 Case 17
@@ -6010,7 +6010,7 @@ Partial Class Compras_Compras
Case 17 'Pago Proveedores Case 17 'Pago Proveedores
If CveTipoConcepto = 2 Then ConceptoContable = 308 'cuando es acreedor If CveTipoConcepto <> 1 Then ConceptoContable = 308 'cuando es acreedor
If CveMoneda <> 1 Then If CveMoneda <> 1 Then
Select Case ConceptoContable Select Case ConceptoContable
Case 17 Case 17
@@ -6114,7 +6114,7 @@ Partial Class Compras_Compras
If importeMovimiento <> 0 Then 'Cuando tiene complementaria lo dividimos en dos If importeMovimiento <> 0 Then 'Cuando tiene complementaria lo dividimos en dos
Dim CveConceptoContableComplementaria As Integer = 206 Dim CveConceptoContableComplementaria As Integer = 206
If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor If CveTipoConcepto <> 1 Then CveConceptoContableComplementaria = 310 'cuando es acreedor
importeMN = importeMovimiento importeMN = importeMovimiento
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, CveConceptoContableComplementaria, Referencia, Concepto, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=TipoCambioCompra) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, CveConceptoContableComplementaria, Referencia, Concepto, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=TipoCambioCompra) Then
@@ -6890,7 +6890,7 @@ Partial Class Compras_Compras
importeMovimiento = 0 importeMovimiento = 0
End If End If
Case 5 'Proveedores Case 5 'Proveedores
If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor If CveTipoConcepto <> 1 Then ConceptoContable = 305 'cuando es acreedor
Dim UsaComplementaria As Boolean = True Dim UsaComplementaria As Boolean = True
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComplementaria = False If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComplementaria = False
@@ -6911,7 +6911,7 @@ Partial Class Compras_Compras
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
Dim CveConceptoContableComplementaria As Integer = 201 Dim CveConceptoContableComplementaria As Integer = 201
If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307 If CveTipoConcepto <> 1 Then CveConceptoContableComplementaria = 307
If tipoCambioActual <> 1 Then If tipoCambioActual <> 1 Then