-- cambio en prepólizas de pago
This commit is contained in:
@@ -3081,7 +3081,7 @@ Partial Class Compras_Compras
|
||||
'TIENE AMORTIZACIÓN
|
||||
If GvAnticiposSel.Rows.Count > 0 Then
|
||||
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("NC") Then
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
|
||||
BtnCancelarCompra.Visible = False
|
||||
BtnEliminarCompra.Visible = False
|
||||
End If
|
||||
@@ -5861,8 +5861,6 @@ Partial Class Compras_Compras
|
||||
'Dim CveIEProvisional = CveIE
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then
|
||||
|
||||
Dim DTPlatilla As New DataTable
|
||||
@@ -5961,7 +5959,6 @@ Partial Class Compras_Compras
|
||||
|
||||
If TipoCreditoInteres Then
|
||||
|
||||
|
||||
Dim importeMovimientoIn As Decimal = ImporteIECredito - importeMovimiento
|
||||
Dim importeMNIn As Decimal = importeMovimientoIn * tipoCambioActual * Multiplicador
|
||||
|
||||
@@ -5974,7 +5971,7 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
importeMovimiento = 0 : importeMN = 0
|
||||
If TipoCambioCompra > 1 AndAlso DdlMoneda.SelectedValue.ToEntero <> 1 Then Concepto += $" TC{TipoCambioCompra} ${importeMovimiento.FormatoNumero(2)}"
|
||||
|
||||
If TipoCambioCompra = 1 Or DdlMoneda.SelectedValue.ToEntero = 1 Then
|
||||
@@ -6019,6 +6016,17 @@ Partial Class Compras_Compras
|
||||
IdCtaContable = IdCuentaBancaria
|
||||
End If
|
||||
|
||||
If importeMovimiento <> 0 Then
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeMovimiento
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
Pago.CveCompraAmortizacion = -1
|
||||
'Pago.CveConceptoPago = CveConceptoPago
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
End If
|
||||
|
||||
Case 14 'IVA X Acreditar
|
||||
importeMovimiento = CompraActual.IVA
|
||||
importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
|
||||
@@ -6071,13 +6079,13 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
Case 224 'Otros impuestos
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
importeMovimiento = OtrosImpuestos
|
||||
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
|
||||
End If
|
||||
'Case 224 'Otros impuestos
|
||||
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
' importeMovimiento = OtrosImpuestos
|
||||
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
|
||||
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
|
||||
' IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
|
||||
' End If
|
||||
|
||||
Case 15 'RetIVA X Acreditar Honorarios/Serv. Prof.
|
||||
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
|
||||
@@ -7070,6 +7078,17 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
If importeMovimiento > 0 Then
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeFE
|
||||
Pago.CveIE = -1
|
||||
Pago.CvePersonal = CvePersonal
|
||||
|
||||
ErrorPrepoliza = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Case 21 'Anticipo
|
||||
|
||||
If ArrAnticipos.Count > 0 Then
|
||||
@@ -7213,12 +7232,15 @@ Partial Class Compras_Compras
|
||||
|
||||
If Ant.TipoMovto.Contiene("Ant") Then
|
||||
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeMovimientoNC
|
||||
Pago.CveIE = Ant.CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
If importeMovimientoNC <> 0 Then
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = importeMovimientoNC
|
||||
Pago.CveIE = Ant.CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -7456,13 +7478,16 @@ Partial Class Compras_Compras
|
||||
|
||||
If CveIE > 0 Then
|
||||
|
||||
'inserto los movimientos de la conta para abonar al saldo
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = ImporteCompra
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
If ImporteCompra <> 0 Then
|
||||
'inserto los movimientos de la conta para abonar al saldo
|
||||
Dim Pago As New CompraPago
|
||||
Pago.ImportePago = ImporteCompra
|
||||
Pago.CveIE = CveIE
|
||||
Pago.CveMonedaPago = 1
|
||||
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
ErrorMovtosIE = True
|
||||
@@ -20561,111 +20586,6 @@ Partial Class Compras_Compras
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function AplicaPrePolizaPago(CompraActual As Compra, Pago As CompraPago, CvePrePoliza As Integer, ByRef ObjConta As ClsContabilidad) As Boolean
|
||||
Dim ErrorMovtos As Boolean = False
|
||||
Dim PorcentajePago As Decimal = Pago.ImportePago / CompraActual.Total
|
||||
Dim ImporteMovimiento As Decimal = 0
|
||||
Dim CveConceptoContableComplementaria As Integer = 201
|
||||
|
||||
Pago.CveConceptoPago = If(Pago.CveConceptoPago = -1, 17, Pago.CveConceptoPago) 'si viene en parametro lo toma com primera opcion, sino el 17
|
||||
If CompraActual.CveTipoConceptoProveedor = 2 Then Pago.CveConceptoPago = 308 'cuando es acreedor
|
||||
If CompraActual.CveMoneda <> 1 Then
|
||||
Select Case Pago.CveConceptoPago
|
||||
Case 17 : Pago.CveConceptoPago = 312
|
||||
Case 308 : Pago.CveConceptoPago = 309 : CveConceptoContableComplementaria = 307
|
||||
Case Else
|
||||
End Select
|
||||
End If
|
||||
Dim Concepto As String = CompraActual.ProveedorNombre & " F:" & CompraActual.SerieFolio
|
||||
|
||||
'movimiento de pago proveedor
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, Pago.CveConceptoPago, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=CompraActual.TC) Then
|
||||
ErrorMovtos = True
|
||||
End If
|
||||
|
||||
'movimiento de pago proveedor Complementaria
|
||||
If Not ErrorMovtos AndAlso CompraActual.CveMoneda > 1 Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, (Pago.ImportePago * CompraActual.TC - Pago.ImportePago).RoundSQL, CveConceptoContableComplementaria, CompraActual.SerieFolio, Concepto, CompraActual.IdCtaContableProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=CvePersonal, CveCompraAmortizacion:=Pago.CveCompraAmortizacion, TipoCambio:=CompraActual.TC, ImporteME:=Pago.ImportePago) Then
|
||||
ErrorMovtos = True
|
||||
End If
|
||||
End If
|
||||
|
||||
'si tiene iva y su proporcion
|
||||
ImporteMovimiento = (PorcentajePago * CompraActual.IVA).RoundSQL
|
||||
If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then
|
||||
|
||||
Dim Ret As CompraRetenciones = CompraActual.ConceptoPrePolizaIVA
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=CvePersonal) Then ErrorMovtos = True
|
||||
|
||||
End If
|
||||
|
||||
'si tiene RET IVA y su proporcion
|
||||
ImporteMovimiento = (PorcentajePago * CompraActual.RetIVA).RoundSQL
|
||||
If Not ErrorMovtos AndAlso ImporteMovimiento > 0 Then
|
||||
Dim Ret As CompraRetenciones = CompraActual.ConceptoPrePolizaRetIVA
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=CvePersonal) Then ErrorMovtos = True
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=CvePersonal) Then ErrorMovtos = True
|
||||
|
||||
End If
|
||||
|
||||
'si tiene Ret ISR y su proporcion
|
||||
ImporteMovimiento = (PorcentajePago * CompraActual.RetISR).RoundSQL
|
||||
If Not ErrorMovtos AndAlso ImporteMovimiento > 0 Then
|
||||
Dim Ret As CompraRetenciones = CompraActual.ConceptoPrePolizaRetISR
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoxAcreditar, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=CvePersonal) Then ErrorMovtos = True
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, Ret.CveConceptoAcreditable, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=CvePersonal) Then ErrorMovtos = True
|
||||
|
||||
End If
|
||||
|
||||
'si tiene IEPS y su proporcion
|
||||
ImporteMovimiento = (PorcentajePago * CompraActual.IEPS).RoundSQL
|
||||
If Not ErrorMovtos AndAlso ImporteMovimiento > 0 Then
|
||||
Dim Ret As New CompraRetenciones
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
If ObjConta.GetRetCuenta(26, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
|
||||
End If
|
||||
If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMovimiento, 25, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=CvePersonal) Then ErrorMovtos = True
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMovimiento, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=CvePersonal) Then ErrorMovtos = True
|
||||
|
||||
End If
|
||||
|
||||
If Not ErrorMovtos AndAlso CompraActual.TC <> Pago.TCPago Then
|
||||
ImporteMovimiento = (Pago.ImportePago * CompraActual.TC) - (Pago.ImportePago * Pago.TCPago)
|
||||
Dim ConceptoContable, IdCtaContable As Integer
|
||||
Dim TipoMovimiento As Boolean
|
||||
If ImporteMovimiento > 0 Then
|
||||
ConceptoContable = 64 : TipoMovimiento = True
|
||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
|
||||
ElseIf ImporteMovimiento < 0 Then
|
||||
ConceptoContable = 65 : TipoMovimiento = False
|
||||
IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
|
||||
End If
|
||||
|
||||
ImporteMovimiento = ImporteMovimiento.Abs.RoundSQL()
|
||||
If ImporteMovimiento <> 0 Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ImporteMovimiento, ConceptoContable, Concepto, Concepto, IdCtaContable, CveCompra:=CompraActual.CveCompra, CveSubProyecto:=CompraActual.CveSubProyecto, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE) Then
|
||||
ErrorMovtos = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Return ErrorMovtos
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
Public Class MMensajeDevolucion
|
||||
@@ -20675,167 +20595,3 @@ Public Class MMensajeDevolucion
|
||||
Public Property Total As Decimal
|
||||
End Class
|
||||
|
||||
Public Class CompraPago
|
||||
Public Property CveIE As Integer = -1
|
||||
Public Property CvePersonal As Integer = -1
|
||||
Public Property ImportePago As Decimal
|
||||
Public Property CveMonedaPago As Integer = 1
|
||||
Public Property TCPago As Decimal = 1
|
||||
Public Property CveCompraAmortizacion As Integer
|
||||
Public Property CveConceptoPago As Integer = -1 'no definido de inicio
|
||||
|
||||
End Class
|
||||
|
||||
Public Class Compra
|
||||
Public Property CveCompra As Integer = -1
|
||||
Public Property CveProveedor As Integer
|
||||
Public Property CveTipoConceptoProveedor As Integer
|
||||
Public Property CveMoneda As Integer
|
||||
Public Property SerieFolio As String = ""
|
||||
Public Property ProveedorNombre As String = ""
|
||||
Public Property EsImportacion As Boolean = False
|
||||
Public Property TC As Decimal = 1
|
||||
Public Property Total As Decimal
|
||||
Public Property IVA As Decimal
|
||||
Public Property IEPS As Decimal
|
||||
Public Property RetIVA As Decimal
|
||||
Public Property RetISR As Decimal
|
||||
Public Property PorcentajeIVA As Decimal
|
||||
Public Property CveConceptoRetIVA As Integer
|
||||
Public Property CveConceptoRetISR As Integer
|
||||
Public Property CveSubProyecto As Integer
|
||||
Public Property UsuarioActual As Usuario
|
||||
|
||||
Public Property IdCtaContableProv As Integer
|
||||
Public Property IdCtaContableProvComplementaria As Integer
|
||||
Public ReadOnly Property ConceptoPrePolizaIVA As CompraRetenciones
|
||||
Get
|
||||
Dim Ret As New CompraRetenciones
|
||||
If EsImportacion Then
|
||||
Ret.CveConceptoAcreditable = 288
|
||||
Ret.CveConceptoxAcreditar = 287
|
||||
Else
|
||||
Ret.CveConceptoAcreditable = 19
|
||||
Ret.CveConceptoxAcreditar = 14
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
|
||||
Dim IdCtaIVAXAcreditar, IdCtaIVAAcreditable As Integer
|
||||
Dim dt As DataTable = ClsPaginas.GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA)
|
||||
If dt.Rows.Count > 0 Then
|
||||
IdCtaIVAXAcreditar = dt.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
|
||||
IdCtaIVAAcreditable = dt.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
|
||||
End If
|
||||
|
||||
Ret.IdCtaContableAcreditable = IdCtaIVAAcreditable
|
||||
Ret.IdCtaContablexAcreditar = IdCtaIVAXAcreditar
|
||||
End If
|
||||
|
||||
Return Ret
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property ConceptoPrePolizaRetIVA As CompraRetenciones
|
||||
Get
|
||||
Dim Ret As New CompraRetenciones
|
||||
Dim Funcionalidad As Integer
|
||||
If CveConceptoRetIVA = 1 Then
|
||||
Funcionalidad = 308
|
||||
Ret.CveConceptoAcreditable = 22
|
||||
Ret.CveConceptoxAcreditar = 15
|
||||
ElseIf CveConceptoRetIVA = 2 Then
|
||||
Funcionalidad = 310
|
||||
Ret.CveConceptoAcreditable = 184
|
||||
Ret.CveConceptoxAcreditar = 183
|
||||
ElseIf CveConceptoRetIVA = 3 Then
|
||||
Funcionalidad = 312
|
||||
Ret.CveConceptoAcreditable = 186
|
||||
Ret.CveConceptoxAcreditar = 185
|
||||
ElseIf CveConceptoRetIVA = 4 Then
|
||||
Funcionalidad = 314
|
||||
Ret.CveConceptoAcreditable = 249
|
||||
Ret.CveConceptoxAcreditar = 248
|
||||
ElseIf CveConceptoRetIVA = 5 Then
|
||||
Funcionalidad = 578
|
||||
Ret.CveConceptoAcreditable = 286
|
||||
Ret.CveConceptoxAcreditar = 285
|
||||
ElseIf CveConceptoRetIVA = 6 Then
|
||||
Funcionalidad = 578
|
||||
Ret.CveConceptoAcreditable = 333
|
||||
Ret.CveConceptoxAcreditar = 334
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
||||
Ret.IdCtaContablexAcreditar = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
||||
Else
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
End If
|
||||
|
||||
Return Ret
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property ConceptoPrePolizaRetISR As CompraRetenciones
|
||||
Get
|
||||
Dim Ret As New CompraRetenciones
|
||||
Dim Funcionalidad As Integer
|
||||
If CveConceptoRetISR = 1 Then
|
||||
Funcionalidad = 316
|
||||
Ret.CveConceptoAcreditable = 23
|
||||
Ret.CveConceptoxAcreditar = 16
|
||||
ElseIf CveConceptoRetISR = 2 Then
|
||||
Funcionalidad = 318
|
||||
Ret.CveConceptoAcreditable = 244
|
||||
Ret.CveConceptoxAcreditar = 243
|
||||
ElseIf CveConceptoRetISR = 3 Then
|
||||
Funcionalidad = 348
|
||||
Ret.CveConceptoAcreditable = 328
|
||||
Ret.CveConceptoxAcreditar = 327
|
||||
End If
|
||||
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
If UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero > 0 Then
|
||||
Ret.IdCtaContableAcreditable = UsuarioActual.Empresa.Funcionalidad(Funcionalidad).ToEntero
|
||||
Else
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
If ObjConta.GetRetCuenta(Ret.CveConceptoxAcreditar, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
If ObjConta.GetRetCuenta(Ret.CveConceptoAcreditable, UsuarioActual.CveEmpresa) Then
|
||||
If ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
|
||||
End If
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
End If
|
||||
|
||||
Return Ret
|
||||
End Get
|
||||
|
||||
End Property
|
||||
|
||||
End Class
|
||||
|
||||
Public Class CompraRetenciones
|
||||
Public Property CveConceptoxAcreditar As Integer
|
||||
Public Property CveConceptoAcreditable As Integer
|
||||
Public Property IdCtaContablexAcreditar As Integer
|
||||
Public Property IdCtaContableAcreditable As Integer
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user