-- manejo de no deducibles.
-- prorrateo 8.5
This commit is contained in:
@@ -191,12 +191,12 @@ Public Class ClsCompras
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function AddCompra(TipoDocto As String, Descripcion As String, Serie As String, Folio As String, FolioSecundario As String, CveProveedor As Integer, SubTotal As Double, Descuentos As Double, Amortizacion As Double, IVA As Double,
|
||||
RetIVA As Double, RetISR As Double, IEPS As Double, OtrosImpuestos As Double, Redondeo As Double, Total As Double, Fecha As Date, CveMoneda As Integer, TipoCambio As Double, FechaVencimiento As Date,
|
||||
Public Function AddCompra(TipoDocto As String, Descripcion As String, Serie As String, Folio As String, FolioSecundario As String, CveProveedor As Integer, SubTotal As Decimal, Descuentos As Decimal, Amortizacion As Decimal, IVA As Decimal,
|
||||
RetIVA As Decimal, RetISR As Decimal, IEPS As Decimal, OtrosImpuestos As Decimal, Redondeo As Decimal, Total As Decimal, Fecha As Date, CveMoneda As Integer, TipoCambio As Decimal, FechaVencimiento As Date,
|
||||
AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional IdPoliza As Integer = -1,
|
||||
Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
|
||||
Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
|
||||
Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
|
||||
Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Decimal = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
|
||||
Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Integer = 0, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Decimal = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
|
||||
Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False, Optional CveSubProyecto As Integer = -1, Optional DoctosRelacionados As String = "-1", Optional CveFolioGarantia As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -243,7 +243,7 @@ Public Class ClsCompras
|
||||
.Add("@CveRetIVAConcepto", SqlDbType.Int).Value = CveRetIVAConcepto
|
||||
.Add("@CveConceptoContableAlmacen", SqlDbType.Int).Value = CveConceptoContableAlmacen
|
||||
.Add("@CveRetISRConcepto", SqlDbType.Int).Value = CveRetISRConcepto
|
||||
.Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
|
||||
.Add("@NoDeducible", SqlDbType.TinyInt).Value = NoDeducible
|
||||
.Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra
|
||||
.Add("@TotalOriginal", SqlDbType.Money).Value = TotalOriginal
|
||||
.Add("@CveTipoConcepto", SqlDbType.Int).Value = CveTipoConcepto
|
||||
@@ -276,15 +276,13 @@ Public Class ClsCompras
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function UpdateCompra(Descripcion As String, FolioSecundario As String, FechaVencimiento As Date, AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer,
|
||||
Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer, CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1,
|
||||
Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0, Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False,
|
||||
Descuento As Decimal, SubTotal As Decimal, IVA As Decimal, Total As Decimal, CveUsuario As Integer, CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1,
|
||||
Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Integer = 0,
|
||||
Optional CveFactura As Integer = -1, Optional CveContrato As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveRetISRConcepto As Integer = -1, Optional CveSubProyecto As Integer = -1,
|
||||
Optional CveFolioGarantia As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
|
||||
|
||||
DataAdapter("PA_Comp_CompraUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -306,7 +304,7 @@ Public Class ClsCompras
|
||||
.Add("@PorcentajeIVA", SqlDbType.Float).Value = PorcentajeIVA
|
||||
.Add("@NumeroReembolso", SqlDbType.VarChar).Value = NumeroReembolso
|
||||
.Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra
|
||||
.Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
|
||||
.Add("@NoDeducible", SqlDbType.Int).Value = NoDeducible
|
||||
.Add("@CveFactura", SqlDbType.Int).Value = CveFactura
|
||||
.Add("@CveContrato", SqlDbType.Int).Value = CveContrato
|
||||
.Add("@CveRetIVAConcepto", SqlDbType.Int).Value = CveRetIVAConcepto
|
||||
@@ -515,10 +513,10 @@ Public Class ClsCompras
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function UpdateCompraDetalle(CvePS As Integer, Cantidad As Double, PU As Double, IVA As Double, Total As Double, Descuento As Double, Observaciones As String, CveSubProyecto As Integer, CvePresupuestoEgreso As Integer, CveActivoFijo As Integer, CveCompraDetalle As Integer, Optional AplicaCostoIndirecto As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1,
|
||||
Public Function UpdateCompraDetalle(CvePS As Integer, Cantidad As Decimal, PU As Decimal, IVA As Decimal, Total As Decimal, Descuento As Decimal, Observaciones As String, CveSubProyecto As Integer, CvePresupuestoEgreso As Integer, CveActivoFijo As Integer, CveCompraDetalle As Integer, Optional AplicaCostoIndirecto As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveTipoGasto As Integer = -1,
|
||||
Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "",
|
||||
Optional RetIVA As Double = 0, Optional RetISR As Double = 0, Optional IEPSPS As Double = 0, Optional IEPSPSIVA As Double = 0,
|
||||
Optional IVAPorcentaje As Double = 0, Optional RetIVAPorcentaje As Double = 0, Optional RetISRPorcentaje As Double = 0, Optional IEPSPSPorcentaje As Double = 0, Optional IEPSPSIVAPorcentaje As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1) As Boolean
|
||||
Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IEPSPS As Decimal = 0, Optional IEPSPSIVA As Decimal = 0,
|
||||
Optional IVAPorcentaje As Decimal = 0, Optional RetIVAPorcentaje As Decimal = 0, Optional RetISRPorcentaje As Decimal = 0, Optional IEPSPSPorcentaje As Decimal = 0, Optional IEPSPSIVAPorcentaje As Decimal = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
@@ -542,12 +540,12 @@ Public Class ClsCompras
|
||||
.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
|
||||
.Add("@CveTipoGasto", SqlDbType.Int).Value = CveTipoGasto
|
||||
.Add("@Referencia", SqlDbType.VarChar).Value = Referencia
|
||||
.Add("@RetIVA", SqlDbType.Float).Value = RetIVA
|
||||
.Add("@RetISR", SqlDbType.Float).Value = RetISR
|
||||
.Add("@IEPSPS", SqlDbType.Float).Value = IEPSPS
|
||||
.Add("@IEPSPSIVA", SqlDbType.Float).Value = IEPSPSIVA
|
||||
.Add("@RetIVA", SqlDbType.Money).Value = RetIVA
|
||||
.Add("@RetISR", SqlDbType.Money).Value = RetISR
|
||||
.Add("@IEPSPS", SqlDbType.Money).Value = IEPSPS
|
||||
.Add("@IEPSPSIVA", SqlDbType.Money).Value = IEPSPSIVA
|
||||
|
||||
.Add("@IVAPorcentaje", SqlDbType.Float).Value = IVAPorcentaje
|
||||
.Add("@IVAPorcentaje", SqlDbType.Money).Value = IVAPorcentaje
|
||||
.Add("@RetIVAPorcentaje", SqlDbType.Float).Value = RetIVAPorcentaje
|
||||
.Add("@RetISRPorcentaje", SqlDbType.Float).Value = RetISRPorcentaje
|
||||
.Add("@IEPSPSPorcentaje", SqlDbType.Float).Value = IEPSPSPorcentaje
|
||||
|
||||
@@ -1254,7 +1254,6 @@ Public Class ClsContabilidad
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
Public Function ContabilizaDesContabilizaPrePoliza(CvePrePoliza As Integer, Contabilizar As Boolean, CveEmpresa As Integer, Optional Folio As Integer = -1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_Conta_PrePolizasContabilizarDescontabilizar")
|
||||
@@ -1281,7 +1280,6 @@ Public Class ClsContabilidad
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
Public Function ContabilizarPrePoliza(CvePrePoliza As Integer, CveUsuario As Integer, Empresa As Empresa, Optional Fecha As Date = MinFecha, Optional Concepto As String = "",
|
||||
Optional ObjConta As ClsContPAQi = Nothing, Optional pIDPoliza As Integer = -1) As Boolean
|
||||
Dim StrLog As New StringBuilder
|
||||
@@ -1301,8 +1299,6 @@ Public Class ClsContabilidad
|
||||
Else
|
||||
If CvePrePoliza <= 0 Then Return False
|
||||
|
||||
|
||||
|
||||
Dim ContaCompartida As Boolean = False
|
||||
|
||||
If ObjConta Is Nothing Then
|
||||
@@ -1337,11 +1333,6 @@ Public Class ClsContabilidad
|
||||
CodigoNumeroPoliza = Data.Rows(0)("CodigoNumeroPoliza").ToString
|
||||
CvePlantillaPoliza = Data.Rows(0)("CvePlantillaPoliza").ToString.ToEntero
|
||||
|
||||
'FolioFiscal = Data.Rows(0)("FolioFiscal").ToString
|
||||
'MetodoPagoSAT = Data.Rows(0)("ClaveSAT").ToString
|
||||
'CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero
|
||||
'Total = Data.Rows(0)("Total").ToString.ToDecimal
|
||||
|
||||
If FolioFijo > 0 Then CodigoNumeroPoliza = "CHQ"
|
||||
|
||||
'tiene prioridad el concepto en parametro
|
||||
@@ -1359,18 +1350,6 @@ Public Class ClsContabilidad
|
||||
ContaFolio = ObjConta.Folio.ToString
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'If Empresa.Funcionalidad(522).ToString = "1" Then
|
||||
' GuidPoliza = ObjConta.DtResultados.Rows(0)("Guid").ToString
|
||||
' Periodo = Data.Rows(0)("Fecha").ToString.ToDate.Month
|
||||
' Ejercicio = Data.Rows(0)("Fecha").ToString.ToDate.Year
|
||||
|
||||
' ObjConta.AddASocCFDIs(False, TipoPol, GuidPoliza, FolioFiscal, 0, "-1", Empresa.BDContPAQi, Ejercicio, Periodo, ContaFolio)
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
If tIdPoliza > 0 AndAlso GetContabilizacionDiarioDetalle(CvePrePoliza) Then
|
||||
Dim tipoMovimiento As Boolean = False
|
||||
Dim CveConceptoContable As Integer
|
||||
@@ -1423,9 +1402,6 @@ Public Class ClsContabilidad
|
||||
StrLog.AppendFormat(" Error 1.2 - ")
|
||||
Exit For
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Else
|
||||
OcurrioError = True
|
||||
@@ -1436,7 +1412,6 @@ Public Class ClsContabilidad
|
||||
|
||||
Next
|
||||
|
||||
|
||||
'Obtenemos los valores de la causacion y los agregamos
|
||||
If Not OcurrioError AndAlso ContabilizarCausacion Then
|
||||
If GetCausacionesValores(CvePrePoliza) AndAlso Data.Rows.Count > 0 Then
|
||||
@@ -1494,7 +1469,6 @@ Public Class ClsContabilidad
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If IdProveedor <= 0 Then
|
||||
IdProveedor = ObjConta.AddProveedor(IdCtaContProveedores, RFC, RazonSocial, "")
|
||||
If IdProveedor <= 0 Then
|
||||
@@ -1520,12 +1494,8 @@ Public Class ClsContabilidad
|
||||
StrLog.AppendFormat(" Error 1.6 - ")
|
||||
Mensaje.Append("La Poliza o la Cuenta no son válidas ")
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1543,8 +1513,6 @@ Public Class ClsContabilidad
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If OcurrioError Then
|
||||
If Not ContaCompartida Then ObjConta.RollBack()
|
||||
Else
|
||||
@@ -1565,8 +1533,6 @@ Public Class ClsContabilidad
|
||||
StrLog.AppendFormat(" Error 3.1 - ")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
StrLog.AppendFormat(" Error 4.1 - ")
|
||||
If Not ContaCompartida Then ObjConta.RollBack()
|
||||
@@ -1577,13 +1543,13 @@ Public Class ClsContabilidad
|
||||
|
||||
If Not ContaCompartida Then ObjConta.Dispose()
|
||||
End If
|
||||
|
||||
StrLog.AppendFormat(" - Con Retorno ({0}) - OcurrioError ({1}) ", Retorno, OcurrioError)
|
||||
StrLog.AppendFormat(" - Fin")
|
||||
StrLog.ToString.GuardaLogAD("LogContabilizacion")
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
Public Function GetCuentaDobleConta(IdCtaContable As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -1768,11 +1734,8 @@ Public Class ClsContabilidad
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
Public Function GetCuentasConceptos(CveTipoSaldo As Integer, CveEmpresa As Integer, Optional CveCliente As Integer = -1,
|
||||
Optional CveProveedor As Integer = -1,
|
||||
Optional CveClasificacion As Integer = -1,
|
||||
@@ -1801,8 +1764,6 @@ Public Class ClsContabilidad
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
#Region " C O N T A B I L I D A D - T I P O - P O L I Z A "
|
||||
Public Function GetConta_TiposPoliza(CveEmpresa As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
@@ -3407,8 +3368,6 @@ Public Class ClsContabilidad
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " CONTABILIDAD SIG "
|
||||
|
||||
|
||||
@@ -5996,7 +5955,7 @@ Public Class ClsContabilidad
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1,
|
||||
Public Function AddCuentasAsignaciones(CveConceptoContable As Integer, CveEmpresa As Integer, CveCuenta As Integer,
|
||||
Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
|
||||
Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1,
|
||||
Optional CveSubProyecto As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional CveTipoGasto As Integer = -1, Optional CveCredito As Integer = -1,
|
||||
@@ -6442,7 +6401,7 @@ Public Class ClsContabilidad
|
||||
If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza")
|
||||
|
||||
If MensajePolizaDescuadre = "" AndAlso AutoConta Then
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then ' eltipocontabilidad deberá activarse en el PA
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 Then ' el tipocontabilidad deberá activarse en el PA
|
||||
If Not ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
|
||||
MensajePolizaDescuadre = Mensaje.ToString ' regresa el mensaje de contabilización
|
||||
End If
|
||||
|
||||
@@ -7329,7 +7329,8 @@ Public Class ClsPaginas
|
||||
ImporteMovimiento = (PorcentajePago * CompraActual.IVANoDeducible).RoundSQL
|
||||
ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
|
||||
If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 280, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
|
||||
Dim tConceptoIVA As Integer = If(CompraActual.CompraNoDeducible = 1, 280, 380) '280. iva no deducible en su totalidad
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, tConceptoIVA, CompraActual.SerieFolio, Concepto, Ret.IdCtaContIVANoAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, PorcentajeImpuesto:=CompraActual.PorcentajeIVA, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=TCValuacionPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
|
||||
End If
|
||||
End If
|
||||
'si tiene RET IVA y su proporcion
|
||||
@@ -7504,6 +7505,7 @@ Public Class ClsPaginas
|
||||
Public Property EsImportacion As Boolean = False
|
||||
Public Property TC As Decimal = 1
|
||||
Public Property Total As Decimal
|
||||
Public Property CompraNoDeducible As Integer = 0
|
||||
Public Property IVA As Decimal
|
||||
Public Property IVADeducible As Decimal
|
||||
Public Property IVANoDeducible As Decimal = 0
|
||||
@@ -7529,18 +7531,6 @@ Public Class ClsPaginas
|
||||
Ret.CveConceptoAcreditable = 19
|
||||
Ret.CveConceptoxAcreditar = 14
|
||||
End If
|
||||
'If UsuarioActual.Empresa.TipoContabilidad = 2 Then
|
||||
' Dim IdCtaIVAXAcreditar, IdCtaIVAAcreditable, IdCtaIVANOAcreditable 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
|
||||
' IdCtaIVANOAcreditable = dt.Rows(0)("IdCtaIVANoAcreditable").ToString.ToEntero
|
||||
' End If
|
||||
' Ret.IdCtaContableAcreditable = IdCtaIVAAcreditable
|
||||
' Ret.IdCtaContablexAcreditar = IdCtaIVAXAcreditar
|
||||
' Ret.IdCtaContIVANoAcreditable = IdCtaIVANOAcreditable
|
||||
'End If
|
||||
Return Ret
|
||||
End Get
|
||||
End Property
|
||||
|
||||
2991
Bancos/ClientesAbonar.aspx.vb
Normal file
2991
Bancos/ClientesAbonar.aspx.vb
Normal file
File diff suppressed because it is too large
Load Diff
@@ -637,6 +637,7 @@ Partial Class Bancos_PopIECompras
|
||||
CompraActual.IdCtaContableProv = CtaProveedor
|
||||
CompraActual.IdCtaContableProvComplementaria = IdCtaProveedorExtranjera
|
||||
CompraActual.EsImportacion = CBool(dr("EsImportacion"))
|
||||
CompraActual.CompraNoDeducible = dr("NoDeducible").ToString.ToEntero
|
||||
|
||||
If Validada Then
|
||||
TxtFolio.Enabled = True
|
||||
@@ -1606,23 +1607,10 @@ Partial Class Bancos_PopIECompras
|
||||
End Select
|
||||
Dim ObjConta As ClsContPAQi = Nothing
|
||||
|
||||
If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
|
||||
If MsgError = "" AndAlso ObjMov.ValidacionesPrePoliza(CvePrePoliza, 5, UsuarioActual) Then
|
||||
If ObjMov.ValorPolizaDescuadre > 0 Then
|
||||
MsgError = ObjMov.MensajePolizaDescuadre
|
||||
GuardaLogAD($"Bancos/PopIECompras | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
|
||||
Else
|
||||
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
|
||||
If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then
|
||||
ObjConta = New ClsContPAQi(UsuarioActual.Empresa)
|
||||
ObjConta.IniciaTransacSQL()
|
||||
End If
|
||||
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjConta) Then
|
||||
IdPoliza = ObjMov.ContaIdPoliza
|
||||
Else
|
||||
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
|
||||
MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
@@ -1141,7 +1141,7 @@
|
||||
<div class="col-md-6 ">
|
||||
<asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" />
|
||||
<asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
|
||||
<asp:Button runat="server" ID="BtnProrateoDeducible" Visible="true" Text="Prorratear Deducible" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />
|
||||
<asp:Button runat="server" ID="BtnProrateoDeducible" Visible="true" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
@@ -1574,14 +1574,11 @@ Partial Class Compras_Compras
|
||||
divDevAuto.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
GVAnticipos.Columns(6).Visible = True
|
||||
DVAntComiciones.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If DdlTipoComprobante.SelectedValue = "NC" Then
|
||||
NCSeleccionFacturasRelacionadas(UUIDSList)
|
||||
End If
|
||||
@@ -1591,7 +1588,6 @@ Partial Class Compras_Compras
|
||||
DdlTipoComprobante.Items.Clear()
|
||||
DdlTipoComprobante.Items.Add(New ListItem("Devolución", "DEV"))
|
||||
DdlTipoComprobante.SelectedValueExist("DEV")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -2538,7 +2534,6 @@ Partial Class Compras_Compras
|
||||
|
||||
HdnCveProveedor.Value = CveProveedor.ToString
|
||||
ViewState("CveProveedor") = CveProveedor
|
||||
|
||||
ImgBtnBuscarOC.OnClientClick = String.Format("AbrirVentana('/OC/PopUpBuscarReq.aspx?V=VOCCOMP&P={0}&T={1}&Masterimpoup=true',1000,600,'S'); return false;", CveProveedor, DdlTipoComprobante.SelectedValue)
|
||||
|
||||
|
||||
@@ -2548,7 +2543,6 @@ Partial Class Compras_Compras
|
||||
GvCreditosRelacionados.DataSource = ObjBancos.DtResultados
|
||||
GvCreditosRelacionados.Visible = True
|
||||
GvCreditosRelacionados.DataBind()
|
||||
'romCreditosTabla.Visible = True
|
||||
GvCreditos.Visible = False
|
||||
GvCreditosRelacionados.Visible = True
|
||||
|
||||
@@ -2563,8 +2557,6 @@ Partial Class Compras_Compras
|
||||
LblImporteCreditos.Visible = True
|
||||
ObjBancos.Dispose()
|
||||
|
||||
'RegistraScript("CargaProveedor(""" & CveProveedor & """);")
|
||||
|
||||
'CargaEncabezado
|
||||
'ViewState("FolioFiscal") = ObjCompra.DtResultados.Rows(0)("FolioFiscal").ToString
|
||||
TxtSerie.Text = dr("Serie").ToString
|
||||
@@ -2579,18 +2571,7 @@ Partial Class Compras_Compras
|
||||
DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra"))
|
||||
TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
|
||||
CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
|
||||
|
||||
ChkEsNoDeducible.Checked = Boolean.Parse(dr("NoDeducible").ToString)
|
||||
'Select Case dr("PorcentajeIVA").ToString.ToDouble
|
||||
' Case 0
|
||||
' DdlIVA.SelectedValue = "1"
|
||||
' Case 0.16
|
||||
' DdlIVA.SelectedValue = "1.16"
|
||||
' Case 0.08
|
||||
' DdlIVA.SelectedValue = "1.08"
|
||||
'End Select
|
||||
'If dr("PorcentajeIVA").ToString.ToDouble = 0 Then DdlIVA.SelectedValue = "1" Else DdlIVA.SelectedValue = "1.16"
|
||||
|
||||
ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0
|
||||
LblMetodoPago.Text = dr("MetodoPagoSAT").ToString
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC Then
|
||||
@@ -2665,16 +2646,12 @@ Partial Class Compras_Compras
|
||||
HplProveedor.Visible = True
|
||||
CargaProveedor(CveProveedor, "-1")
|
||||
|
||||
|
||||
DdlRetIVAConcepto.SelectedValueExist(dr("CveRetIVAConcepto").ToString)
|
||||
DdlRetISRConcepto.SelectedValueExist(dr("CveRetISRConcepto").ToString)
|
||||
|
||||
CveRetIVAConceptoOriginal = If(dr("CveRetIVAConcepto").ToString.ToEntero > 0, dr("CveRetIVAConcepto").ToString.ToEntero, -1)
|
||||
CveRetISRConceptoOriginal = If(dr("CveRetISRConcepto").ToString.ToEntero > 0, dr("CveRetISRConcepto").ToString.ToEntero, -1)
|
||||
|
||||
|
||||
If dr("CveTipoConcepto").ToString.ToEntero = 1 Then LblProveedor.Text = "Proveedor:" Else LblProveedor.Text = "Acreedor:"
|
||||
|
||||
HdnCveEstatusFactura.Value = dr("CveEstatusFactura").ToString
|
||||
LblCompraEstatus.Text = dr("EstatusFactura").ToString
|
||||
If dr("CveEstatusFactura").ToString = "2" Then ChkProgramarPago.Checked = True
|
||||
@@ -4829,25 +4806,19 @@ Partial Class Compras_Compras
|
||||
'si el registro es manual, toma el mismo dato
|
||||
If CveFactura <= 0 Then TotalOriginal = TxtTotal.Text.ToDecimal
|
||||
|
||||
For Each GvRow As GridViewRow In GvPS.Rows
|
||||
If GvRow.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If GvRow.FCCheckBox("ChkEsNoDeduciblePS").Checked = False Then
|
||||
EsNoDeducible = False
|
||||
Exit For
|
||||
End If
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim DoctosRelacionados As String = GeneraStrinDoctosRelacionados()
|
||||
' deducible tiene 2 valores 1. totalmente no deducible, 2. parcialmente no deducible
|
||||
Dim tNoDeducible As Integer = If(ChkEsNoDeducible.Checked, 1, 0)
|
||||
If (tNoDeducible > 0) Then
|
||||
tNoDeducible = If(TmpDT.MIN("NoDeducible") = "False", 2, 1)
|
||||
End If
|
||||
|
||||
If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.Todecimal, TxtDescuento.Text.Todecimal,
|
||||
LblAmortizacion.Text.Todecimal, TxtIVA.Text.Todecimal, TxtRetIVA.Text.Todecimal, TxtRetISR.Text.Todecimal, TxtIEPS.Text.Todecimal, TxtOtrosImpuestos.Text.Todecimal,
|
||||
TxtRedondeo.Text.Todecimal, TxtTotal.Text.Todecimal, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
|
||||
CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
|
||||
AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
|
||||
CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=1, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto,
|
||||
CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=tNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto,
|
||||
EsImportacion:=EsImportacion, CveFactura:=CveFactura, CveSubProyecto:=CveSubProyectoPrincipal, DoctosRelacionados:=DoctosRelacionados, CveFolioGarantia:=DdlFolioGarantia.SelectedValue.ToEntero) Then
|
||||
|
||||
ViewState("CveCompra") = ObjCompras.CveCompra
|
||||
@@ -4927,8 +4898,6 @@ Partial Class Compras_Compras
|
||||
End Select
|
||||
End Select
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
|
||||
|
||||
If TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0 Then
|
||||
@@ -4937,10 +4906,7 @@ Partial Class Compras_Compras
|
||||
|
||||
''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC
|
||||
If HdnVCveOC.Value.ToEntero > 0 Then
|
||||
' IDPolizaComprometido = ObjContaAC.AddPoliza( 4, "Comprometido", Total, Total, UsuarioActual.CveUsuario, Now)
|
||||
' If IDPolizaComprometido <= 0 Then
|
||||
' ErrorComprometido = True
|
||||
' End If
|
||||
|
||||
IDPolizaComprometido = 1
|
||||
TotalPorDevengar = TotalPorDevengar * 2
|
||||
Else
|
||||
@@ -7601,7 +7567,6 @@ Partial Class Compras_Compras
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'VALIDAR ERRORES
|
||||
If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
|
||||
If ErrorDetalles Then
|
||||
@@ -7823,7 +7788,6 @@ Partial Class Compras_Compras
|
||||
|
||||
Dim DoctosRelacionados As String = "-1"
|
||||
Dim listaUUIDSRelacionados As New List(Of String)
|
||||
|
||||
If UUIDSList.Count > 0 Then
|
||||
For Each s As String In UUIDSList
|
||||
If s.Trim.Length > 0 Then
|
||||
@@ -7837,8 +7801,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
|
||||
Return DoctosRelacionados
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
Private Function AsignarSubProyectoPrincipal() As Integer
|
||||
@@ -8734,11 +8696,15 @@ Partial Class Compras_Compras
|
||||
|
||||
Dim TmpCveRetIVAConcepto As Integer = If(CveRetIVAConceptoOriginal <> DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetIVAConcepto.SelectedValue.ToEntero, -1)
|
||||
Dim TmpCveRetISRConcepto As Integer = If(CveRetISRConceptoOriginal <> DdlRetISRConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, -1)
|
||||
Dim tNoDeducible As Integer = If(ChkEsNoDeducible.Checked, 1, 0)
|
||||
If (tNoDeducible > 0) Then
|
||||
tNoDeducible = If(TmpDT.MIN("NoDeducible") = "False", 2, 1)
|
||||
End If
|
||||
|
||||
If ObjCompra.UpdateCompra(TxtDescripcion.Text.Trim, TxtFolioSecundario.Text.Trim, TxtFechaPago.Text.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
|
||||
TxtDescuento.Text.Todecimal, TxtSubTotal.Text.Todecimal, TxtIVA.Text.Todecimal, TxtTotal.Text.Todecimal,
|
||||
TxtDescuento.Text.ToDecimal, TxtSubTotal.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtTotal.Text.ToDecimal,
|
||||
UsuarioActual.CveUsuario, CveCompra, CveCajaChica:=DdlRembolsoCajaChica.SelectedValue.ToEntero, CvePersonal:=DdlRembolsoPersonal.SelectedValue.ToEntero, CveProveedorSucursal:=If(DdlProveedorSucursal.SelectedValue.ToEntero > 0, DdlProveedorSucursal.SelectedValue.ToEntero, -1), PorcentajeIVA:=PorcentajeIVA, NumeroReembolso:=TxtRembolsoNumero.Text,
|
||||
CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=1, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal, CveFolioGarantia:=DdlFolioGarantia.SelectedValue.ToEntero) Then
|
||||
CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=tNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal, CveFolioGarantia:=DdlFolioGarantia.SelectedValue.ToEntero) Then
|
||||
|
||||
If Not ComparaDatatables() Then
|
||||
|
||||
@@ -9084,10 +9050,10 @@ Partial Class Compras_Compras
|
||||
Dim CveAFCompra = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
|
||||
|
||||
If Row("CveCompraDetalle").ToString.ToEntero > 0 Then
|
||||
If Not ObjCompra.UpdateCompraDetalle(Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.Todecimal, Row("PU").ToString.Todecimal, Row("IVA").ToString.Todecimal, Row("Total").ToString.Todecimal,
|
||||
Row("Descuento").ToString.Todecimal, Row("Obs").ToString, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, CveAF, Row("CveCompraDetalle").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia,
|
||||
RetIVA:=Row("RetIVA").ToString.Todecimal, RetISR:=Row("RetISR").ToString.Todecimal, IEPSPS:=Row("IEPSPS").ToString.Todecimal, IEPSPSIVA:=Row("IEPSPSIVA").ToString.Todecimal,
|
||||
IVAPorcentaje:=Row("IVAPorcentaje").ToString.Todecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.Todecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.Todecimal, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.Todecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.Todecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False), CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero) Then
|
||||
If Not ObjCompra.UpdateCompraDetalle(Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal,
|
||||
Row("Descuento").ToString.ToDecimal, Row("Obs").ToString, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, CveAF, Row("CveCompraDetalle").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia,
|
||||
RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
|
||||
IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso ChkEsNoDeducible.Checked, True, False), CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero) Then
|
||||
|
||||
Retorno = False
|
||||
Exit For
|
||||
@@ -19367,14 +19333,6 @@ Partial Class Compras_Compras
|
||||
Dim CveMovimientoAlmacen = -1
|
||||
Dim CveOCDetalle = -1
|
||||
Dim CveAlmacen = -1
|
||||
Dim IdCtaContableAlmacen As Integer = -1
|
||||
Dim CveCuentaAlmacen As Integer = -1
|
||||
Dim IdCtaContableRecepcionOC = -1
|
||||
Dim IdCtaContableRecepcionOCME = -1
|
||||
Dim IdCtaContableRecepcionOCComplementaria = -1
|
||||
Dim IdCtaContableRecepcionOCER = -1
|
||||
Dim IdCtaContableRecepcionOCERME = -1
|
||||
Dim IdCtaContableRecepcionOCERComplementaria = -1
|
||||
Dim Fecha As Date = TxtFecha.Text.ToDate
|
||||
Dim CveProveedorInvOC As Integer = -1
|
||||
Dim ProveedorNombre As String = ""
|
||||
@@ -19391,29 +19349,6 @@ Partial Class Compras_Compras
|
||||
Dim CveMoneda As Integer = 1
|
||||
Dim PS As String = ""
|
||||
|
||||
If ObjConta.GetRetCuenta(176, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableRecepcionOC = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
|
||||
End If
|
||||
|
||||
If ObjConta.GetRetCuenta(228, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableRecepcionOCME = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
|
||||
End If
|
||||
|
||||
If ObjConta.GetRetCuenta(229, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableRecepcionOCComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
|
||||
End If
|
||||
|
||||
If ObjConta.GetRetCuenta(177, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableRecepcionOCER = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
|
||||
End If
|
||||
|
||||
If ObjConta.GetRetCuenta(232, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableRecepcionOCERME = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
|
||||
End If
|
||||
|
||||
If ObjConta.GetRetCuenta(233, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
IdCtaContableRecepcionOCERComplementaria = ObjConta.DtResultados.FiltroPrimeroValor("IdCtaContable").ToEntero
|
||||
End If
|
||||
|
||||
'AJUSTES EN PREPOLIZA - SALIDA CONTABLE (CON SALIDA DE VENTA O SIN SALIDA)
|
||||
For Each DrDiferencias As DataRow In DtInvOCDiferencias.FiltraParametros("ConceptoSalida IN (0,1)").Rows
|
||||
@@ -19435,8 +19370,6 @@ Partial Class Compras_Compras
|
||||
CveMovimientoAlmacen = DrDiferencias("CveMovimiento").ToString.ToEntero
|
||||
TCInvOC = DrDiferencias("TipoCambioAjuste").ToString.ToDecimal
|
||||
|
||||
IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
|
||||
|
||||
Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
|
||||
Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
|
||||
|
||||
@@ -19459,13 +19392,13 @@ Partial Class Compras_Compras
|
||||
Dim DifImporte As Decimal = DiferenciaInvOC - (ImporteME + ImporteMEComp)
|
||||
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, ConceptoPartida, Fecha, -1, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
|
||||
Retorno = False
|
||||
Exit For
|
||||
End If
|
||||
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, SerieFolio, 228, ConceptoPartida, Fecha, IdCtaContableRecepcionOCME, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteME, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 229, ConceptoPartida, Fecha, IdCtaContableRecepcionOCComplementaria, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteME, SerieFolio, 228, ConceptoPartida, Fecha, -1, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteME, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMEComp, SerieFolio, 229, ConceptoPartida, Fecha, -1, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=ImporteMEComp, ImporteME:=ImporteME, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle) Then
|
||||
If DifImporte <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifImporte, SerieFolio, 69, ConceptoPartida, Fecha, IdCtaContable69, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DifImporte, ImporteME:=DifImporte, TipoCambio:=TCInvOC, CveOCDetalle:=CveOCDetalle, CveClasificacion:=CveClasificacionCostoOC, CveSubProyecto:=CveSubProyecto) Then
|
||||
Retorno = False
|
||||
Exit For
|
||||
@@ -19480,8 +19413,8 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
Else
|
||||
'2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, -1, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, -1, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
|
||||
Retorno = False
|
||||
Exit For
|
||||
End If
|
||||
@@ -19514,7 +19447,6 @@ Partial Class Compras_Compras
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
@@ -20505,10 +20437,8 @@ Partial Class Compras_Compras
|
||||
|
||||
Private Sub ProratearDeducible()
|
||||
|
||||
|
||||
ChkEsNoDeducible_CheckedChanged1(Nothing, Nothing)
|
||||
|
||||
|
||||
Dim Consec As Integer = 1
|
||||
|
||||
Dim DT_Agrupado As DataTable = TmpDT.Clone
|
||||
@@ -20553,7 +20483,6 @@ Partial Class Compras_Compras
|
||||
Dim drRetISRPorcentaje As Decimal = drIva("RetISRPorcentaje").ToString.ToDecimal
|
||||
Dim drIEPSPSPorcentaje As Decimal = drIva("IEPSPSPorcentaje").ToString.ToDecimal
|
||||
Dim drIEPSPSIVAPorcentaje As Decimal = drIva("IEPSPSIVAPorcentaje").ToString.ToDecimal
|
||||
|
||||
nRowAgrupado("Consec") = Consec
|
||||
|
||||
nRowAgrupado("Cantidad") = 1
|
||||
@@ -20589,9 +20518,6 @@ Partial Class Compras_Compras
|
||||
|
||||
Consec = 1
|
||||
For Each dRowOriginal As DataRow In DT_Agrupado.Rows
|
||||
|
||||
|
||||
|
||||
Dim dRow91_5 As DataRow = DTProtateo.NewRow
|
||||
Dim dRow8_5 As DataRow = DTProtateo.NewRow
|
||||
|
||||
@@ -20600,8 +20526,6 @@ Partial Class Compras_Compras
|
||||
|
||||
Dim Mul85 As Decimal = 0.085D
|
||||
Dim Mul91_5 As Decimal = 0.915D
|
||||
|
||||
|
||||
dRow8_5("Consec") = Consec
|
||||
dRow8_5("PU") = dRow8_5("PU").ToString.ToDecimal * Mul85
|
||||
dRow8_5("IVA") = dRow8_5("IVA").ToString.ToDecimal * Mul85
|
||||
@@ -20613,9 +20537,6 @@ Partial Class Compras_Compras
|
||||
dRow8_5("Total") = dRow8_5("Total").ToString.ToDecimal * Mul85
|
||||
dRow8_5("NoDeducible") = 0
|
||||
|
||||
|
||||
|
||||
|
||||
psCvePs = 700563
|
||||
rowPS = GlobalDTPS(UsuarioActual.CveEmpresa, psCvePs).Rows(0)
|
||||
|
||||
@@ -20624,8 +20545,6 @@ Partial Class Compras_Compras
|
||||
psClasificacion = rowPS("Clasificacion").ToString
|
||||
psCveUM = rowPS("CveUM").ToString.ToEntero
|
||||
psUM = rowPS("UnidadMedida").ToString
|
||||
|
||||
|
||||
dRow91_5("CveUM") = psCveUM
|
||||
dRow91_5("UM") = psUM
|
||||
dRow91_5("CvePS") = psCvePs
|
||||
@@ -20643,16 +20562,10 @@ Partial Class Compras_Compras
|
||||
dRow91_5("Descuento") = dRow91_5("Descuento").ToString.ToDecimal * Mul91_5
|
||||
dRow91_5("Total") = dRow91_5("Total").ToString.ToDecimal * Mul91_5
|
||||
dRow91_5("NoDeducible") = 1
|
||||
|
||||
|
||||
DTProtateo.Rows.Add(dRow8_5)
|
||||
DTProtateo.Rows.Add(dRow91_5)
|
||||
|
||||
|
||||
Consec = Consec + 2
|
||||
|
||||
Next
|
||||
|
||||
DTProtateo.AcceptChanges()
|
||||
TmpDT = DTProtateo
|
||||
|
||||
|
||||
Reference in New Issue
Block a user