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

-- se agregó simplificación

Browse Source 
-- se limpiaron codigos comentados
This commit is contained in:
rrene
2022-05-19 10:08:25 -07:00
parent 7ddb3ff16e
commit fa0819dbe5
1 changed files with 7 additions and 138 deletions
Download Patch File Download Diff File Expand all files Collapse all files

145
Compras/Compras.aspx.vb
View File

@@ -5081,31 +5081,6 @@ Partial Class Compras_Compras
Next
''[IPP] COMENTADO A MIRAS DE ELIMINAR 21-FEBRERO-2018
''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
'If TxtDescuento.Text.ToDouble > 0 Then
' DescuentoConIVA = TxtDescuento.Text.ToDecimal * 1.16D
' 'Valida que el descuento con iva cuadre en los totales
' If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDecimal)) < 0.02 Then
' DescuentoConIVA = Importe - TxtTotal.Text.ToDecimal
' ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDecimal) Then
' ErrorACMEnsaje.Append(" - Valida que el descuento con iva cuadre en los totales ")
' ErrorAC = True
' End If
' 'actualizo el idcuenta del presupuesto
' If ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (Importe - DescuentoConIVA), "", ConceptoRenglon, 0, Fecha, "") Then
' 'agrego a la cuenta contable anticipos
' If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedorAnticipos, True, MultiplicadorNC * DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
' ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto ObjContaAC.AddMovimiento 1")
' ErrorAC = True
' End If
' Else
' ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto ObjContaAC.AddMovimiento 2")
' ErrorAC = True
' End If
'Else
'actualizo el idcuenta del presupuesto
Importe = TxtTotal.Text.ToDecimal
If Not ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe)), "", ConceptoRenglon, 0, Fecha, "") Then
@@ -5505,20 +5480,12 @@ Partial Class Compras_Compras
Next
End If
Next
End If
If AplicarCostoIndirecto(ObjInventario, ObjCompras) Then
ErrorMovInv = True
End If
'Else
' Alert("El tipo de cambio no esta actualizado. Por favor comuniquese con un asistente SIG.", TipoMensaje.MsgError)
' ErrorMovInv = True
'End If
End If
'*************************************************** P R I M E R A P A R T E C O M P R A S **************************************************************************************************************************************************************************************************************************************************************************************************
@@ -5661,12 +5628,6 @@ Partial Class Compras_Compras
Dim CveCompraCapital As Integer = -1
Dim CveCompraInteres As Integer = -1
'Dim ImporteCapital As Decimal = 0
' Dim ImporteCapitalIVA As Decimal = 0
'Dim ImporteInteres As Decimal = 0
' Dim ImporteInteresIVA As Decimal = 0
' Dim ImporteIEMensualidad As Decimal = ObjIE.DtResultados.FiltroPrimeroValor("ImporteIE", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToDecimal
CreditoEstatus = ObjIE.DtResultados.FiltroPrimeroValor("Estatus", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToEntero
@@ -5685,7 +5646,6 @@ Partial Class Compras_Compras
Capital = Ambos
Interes = Ambos
End If
If Capital > 0 Then
@@ -5695,8 +5655,6 @@ Partial Class Compras_Compras
CveCompraInteres = CveCompra
End If
If (CveCompraCapital > 0 And CveCompraInteres > 0) And EstusTemp = 2 Then
If EstusTemp = 2 Then
EstusTemp = 3
@@ -5715,9 +5673,6 @@ Partial Class Compras_Compras
ImporteInteres:=Interes) Then
ErrorCredito = True
End If
'ObjIE.UpdateCreditosDetalle(CveCreditoDetalle, "01/01/2000".ToDate, -1, -1, -1, -1, -1, -1, Estatus)
Else
ErrorCredito = True
@@ -5756,8 +5711,6 @@ Partial Class Compras_Compras
IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
End If
'********************** Variables '**********************
'****** Pagos
@@ -5864,8 +5817,6 @@ Partial Class Compras_Compras
Dim importeRetISRxAcreditar As Decimal = 0
importeRetISRxAcreditar = TxtRetISR.Text.ToDecimal
'****** Movimientos Independientes
'Pago Proveedores (17)
@@ -6276,17 +6227,6 @@ Partial Class Compras_Compras
End If
End If
'Codigo anterior
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
''End If
'If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
'End If
'Agregamos el Opuesto del 22 -> 15
If importeMovimiento <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, ConceptoContableContra, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
@@ -6414,34 +6354,8 @@ Partial Class Compras_Compras
End If
End If
'Case 244 'RetISR Acreditable Terceros y Arrendamiento
' If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
' If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
' importeMovimiento = importeRetISRAcreditable
' importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
' If CtaProveedorRetISR > 0 Then
' IdCtaContable = CtaProveedorRetISR
' ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
' Else
' If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
' If ObjConta.DtResultados.Rows.Count > 0 Then
' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
' End If
' End If
' End If
' 'Agregamos el Opuesto del 244 -> 243
' If importeMovimiento <> 0 Then
' If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 243, Concepto + If(tipoCambioActual > 1, $" TC {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
' ErrorPrepoliza = True
' End If
' End If
' If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
' End If
' End If
Case 64 'Ganancia
CveSubProyectoInsertar = CveSubProyecto
If CveSubProyectoInsertar <= 0 Then
ErrorPrepoliza = True
@@ -6482,30 +6396,7 @@ Partial Class Compras_Compras
Else
importeMovimiento = 0
End If
'Case 285 'Ret IVA 6% Servicios
' IdCtaContable = UsuarioActual.Empresa.Funcionalidad(578).ToEntero
' 'If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
' ' If ObjConta.DtResultados.Rows.Count > 0 Then
' ' IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
' ' End If
' 'End If
' If DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
' If CveMoneda = 2 Then
' importeMN = TxtRetIVA.Text.ToDecimal * TxtTC.Text.ToDecimal
' Else
' importeMN = TxtRetIVA.Text.ToDecimal
' importeMovimiento = TxtRetIVA.Text.ToDecimal
' End If
' Else
' importeMovimiento = 0
' End If
Case 6 'Compra
Dim AgregaMercanciaInventario As Boolean = UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 140, 145, 141, 152, 153, 154, 158, 159, 160, 161, 162, 163) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
@@ -6916,8 +6807,6 @@ Partial Class Compras_Compras
End If
Next
'la diferencia se va aplicar sobre los
'Dim diferenciaTransito As Decimal = ImporteTransito - importeMN.RoundSQL
@@ -6967,12 +6856,9 @@ Partial Class Compras_Compras
End If
End If
End If
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
Dim ContienePSNeteoBonif As Boolean = False
For Each Dr As DataRow In TmpDT.Rows
@@ -7150,15 +7036,11 @@ Partial Class Compras_Compras
End If
End If
Next
End If
End If
'LIMPIA
importeMovimiento = 0
IdCtaContable = 0
@@ -7199,12 +7081,6 @@ Partial Class Compras_Compras
End If
End If
'If CveCompraRefacturacion > 0 Then
' importeMovimiento = 0
' importeMN = 0
' End If
Case 59 'Documentos
importeMovimiento = importeCreditos
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
@@ -7356,8 +7232,6 @@ Partial Class Compras_Compras
End If
End If
'ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
End If
Next
@@ -7707,12 +7581,8 @@ Partial Class Compras_Compras
End If
End If
End If
End If
'** PRUEBA CUANDO SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19 ** JM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
'[IPP] NC NO DEBE REGISTRAR IMPUESTOS EN AMORTIZACIÓN 27/Agosto/2018
Dim tConceptoContable As Integer
@@ -8418,8 +8288,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
@@ -8491,8 +8359,6 @@ Partial Class Compras_Compras
MsgAccionAceptar = "location.href =""Compras.aspx"""
End If
'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
If UsuarioActual.CveEmpresa.Contiene(1, 119, 141) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
@@ -8517,8 +8383,6 @@ Partial Class Compras_Compras
End If
'AJUSTA POLIZA
If IdPoliza > 0 Then
PolizaFolio = ObjContaAC.Folio
@@ -8540,6 +8404,11 @@ Partial Class Compras_Compras
Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
End If
If Not TieneError AndAlso Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
TieneError = True
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
End If
If Not TieneError Then
ObjCompras.Commit()
If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
@@ -18897,7 +18766,7 @@ Partial Class Compras_Compras
CompruebaAgregar()
End If
Alert("SubProyectos cambiados correctamente", TipoMensaje.MsgInformacion)
Alert("SubProyectos cambiados correctamente", TipoMensaje.ToastInformacion)
End Sub
@@ -18926,7 +18795,7 @@ Partial Class Compras_Compras
CompruebaAgregar()
End If
Alert("Los tipos de gastos han sido cambiados correctamente", TipoMensaje.MsgInformacion)
Alert("Los tipos de gastos han sido cambiados correctamente", TipoMensaje.ToastInformacion)
End Sub