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

-- mejora en GDiaz

Browse Source
This commit is contained in:
rrene
2024-12-09 09:26:52 -07:00
parent 2634106c3f
commit 139e58f8a1
1 changed files with 38 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

89
Compras/Compras.aspx.vb
View File

@@ -1656,36 +1656,6 @@ Partial Class Compras_Compras
DdlTipoComprobante_SelectedIndexChanged(Nothing, Nothing) DdlTipoComprobante_SelectedIndexChanged(Nothing, Nothing)
DdlTipoCompra.SelectedValueExist(15) DdlTipoCompra.SelectedValueExist(15)
DdlTipoCompra_SelectedIndexChanged(Nothing, Nothing) DdlTipoCompra_SelectedIndexChanged(Nothing, Nothing)
'For Each gvRow As GridViewRow In GvFacturaNC.Rows
' If gvRow.DataKey("CveCompra").ToEntero > 0 AndAlso gvRow.FCCheckBox("ChkFacturaNC").Checked Then
' Dim SerieFolioFacura As String = ObtenerUltimaParte(gvRow.DataKey("SerieFolio"))
' Dim seleccion As String = ""
' For Each item As ListItem In DdlRemisionNotaCredito.Items
' Dim serieFolioItem As String = ObtenerUltimaParte(item.Text)
' If SerieFolioFacura = serieFolioItem Then
' 'seleccion = item.Value
' AutoSelRNC = True
' DdlRemisionNotaCredito.SelectedValueExist(item.Value)
' Exit For
' End If
' Next
' If AutoSelRNC Then
' Exit For
' End If
' End If
'Next
If AutoSelRNC Then
'DdlRemisionNotaCredito_SelectedIndexChanged(Nothing, Nothing)
End If
HLAplicaNCFact.Visible = True
UpPS.Update() UpPS.Update()
UpEstatus.Update() UpEstatus.Update()
@@ -15189,8 +15159,6 @@ Partial Class Compras_Compras
UpGvOC1.Update() UpGvOC1.Update()
TmpDT = TmpDT.FiltraParametros("", "PU") TmpDT = TmpDT.FiltraParametros("", "PU")
'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO 'PROCESO DE ASIGNACION DE CANTIDAD DEPENDIENDO DEL NoIdentificacion DEL XML Y EL NumeroParte DEL PRODUCTO
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
For Each Gvr As GridViewRow In GvOC1.Rows For Each Gvr As GridViewRow In GvOC1.Rows
@@ -15446,17 +15414,13 @@ Partial Class Compras_Compras
Vinculacion() Vinculacion()
ElseIf Math.Abs(LbSubTotalOC2.Text.ToDecimal - (LbSubTotalOC1.Text.ToDecimal - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then ElseIf Math.Abs(LbSubTotalOC2.Text.ToDecimal - (LbSubTotalOC1.Text.ToDecimal - LbAnticiposOC2.Text.ToDecimal)) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False LbSubTotalDif.Visible = False
Vinculacion() If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
Else
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
ImporteRNC = (SubTotalCompra - SubTotalGV).RoundSQL(2) ImporteRNC = (SubTotalCompra - SubTotalGV).RoundSQL(2)
ImporteRNCProntoPago = (SubTotalCompra * PorcentajeProntoPago).RoundSQL(2) ImporteRNCProntoPago = (SubTotalCompra * PorcentajeProntoPago).RoundSQL(2)
Dim ImporteOCConIVA As Decimal = 0D Dim ImporteOCConIVA As Decimal = 0D
Dim ImporteOCSinIVA As Decimal = 0D Dim ImporteOCSinIVA As Decimal = 0D
Dim ImporteCompraConIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje > 0 ") Dim ImporteCompraConIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje > 0 ")
Dim ImporteCompraSinIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje = 0 ") Dim ImporteCompraSinIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje = 0 ")
@@ -15472,18 +15436,45 @@ Partial Class Compras_Compras
AjusteProntoPagoConIVA = (ImporteCompraConIVA - ImporteOCConIVA) AjusteProntoPagoConIVA = (ImporteCompraConIVA - ImporteOCConIVA)
AjusteProntoPagoSinIVA = (ImporteCompraSinIVA - ImporteOCSinIVA) AjusteProntoPagoSinIVA = (ImporteCompraSinIVA - ImporteOCSinIVA)
If ConfirmaVinculacionOCProntoPago(AjusteProntoPagoPorcentajeIVA) Then If ConfirmaVinculacionOC_RNC(AjusteProntoPagoPorcentajeIVA) Then
Vinculacion() Vinculacion()
End If End If
Else
Vinculacion()
End If
Else
If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then
ImporteRNC = (SubTotalCompra - SubTotalGV).RoundSQL(2)
ImporteRNCProntoPago = (SubTotalCompra * PorcentajeProntoPago).RoundSQL(2)
Dim ImporteOCConIVA As Decimal = 0D
Dim ImporteOCSinIVA As Decimal = 0D
Dim ImporteCompraConIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje > 0 ")
Dim ImporteCompraSinIVA As Decimal = TmpDT.SUM("Total", " IVAPorcentaje = 0 ")
For Each gvr As GridViewRow In GvOC1.Rows
If gvr.DataKey("IVAPorcentaje").ToDecimal > 0 Then
ImporteOCConIVA = ImporteOCConIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal)
Else
ImporteOCSinIVA = ImporteOCSinIVA + (gvr.FCTextBox("TxtCantidad").Text.ToDecimal * gvr.FCTextBox("TxtPU").Text.ToDecimal)
End If
Next
AjusteProntoPagoPorcentajeIVA = TmpDT.MAX("IVAPorcentaje").ToDecimal
AjusteProntoPagoConIVA = (ImporteCompraConIVA - ImporteOCConIVA)
AjusteProntoPagoSinIVA = (ImporteCompraSinIVA - ImporteOCSinIVA)
If ConfirmaVinculacionOC_RNC(AjusteProntoPagoPorcentajeIVA) Then
Vinculacion()
End If
Else Else
LbSubTotalDif.Visible = True LbSubTotalDif.Visible = True
LbSubTotalDif.Text = (SubTotalCompra - SubTotalGV).FormatoNumero LbSubTotalDif.Text = (SubTotalCompra - SubTotalGV).FormatoNumero
Alert("Los SubTotales de la vinculación no coinciden. Rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia,,) Alert("Los SubTotales de la vinculación no coinciden. Rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia,,)
RegistraScript("CalculaTotalesOC();") RegistraScript("CalculaTotalesOC();")
End If End If
End If End If
UpEstatus.Update() UpEstatus.Update()
@@ -15617,7 +15608,7 @@ Partial Class Compras_Compras
IndexTmpOriginal += 1 IndexTmpOriginal += 1
Next Next
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then
Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
If CvePS_RNC = 0 Then If CvePS_RNC = 0 Then
@@ -15637,9 +15628,6 @@ Partial Class Compras_Compras
Dim Clasificacion As String = PSRow("Clasificacion").ToString Dim Clasificacion As String = PSRow("Clasificacion").ToString
Dim PS As String = PSRow("PS").ToString Dim PS As String = PSRow("PS").ToString
Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero
Dim DTConIVA As DataTable = TmpDT.FiltraParametros(" IVAPorcentaje > 0") Dim DTConIVA As DataTable = TmpDT.FiltraParametros(" IVAPorcentaje > 0")
If DTConIVA.Rows.Count > 0 Then If DTConIVA.Rows.Count > 0 Then
@@ -15680,7 +15668,6 @@ Partial Class Compras_Compras
Tab.ActiveTabIndex = 0 Tab.ActiveTabIndex = 0
UpTabs.Update() UpTabs.Update()
ImgClasificacion.Visible = False ImgClasificacion.Visible = False
ImgSubProyecto.Visible = False ImgSubProyecto.Visible = False
LbAgregar.Visible = False LbAgregar.Visible = False
@@ -16559,8 +16546,9 @@ Partial Class Compras_Compras
If DdlTipoCompra.Items.FindByValue("15") Is Nothing Then If DdlTipoCompra.Items.FindByValue("15") Is Nothing Then
DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15")) DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15"))
UpEstatus.Update() UpEstatus.Update()
'oculta el botón para aplicar el saldo, esto bloquea que no duplique el abono.
HLAplicaNCFact.Visible = False
End If End If
End If End If
Else Else
DivReembolso.Visible = True DivReembolso.Visible = True
@@ -17204,9 +17192,9 @@ Partial Class Compras_Compras
Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ") Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles If NumNoDed > 0 Then GvPS.Columns(11).Visible = True 'visualiza columnas de nodeducibles
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then 'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then
InicializaAplicaNCFact() ' InicializaAplicaNCFact()
End If 'End If
End Sub End Sub
Private Sub OriginalesVisible(Accion As Boolean) Private Sub OriginalesVisible(Accion As Boolean)
@@ -21824,12 +21812,11 @@ Partial Class Compras_Compras
End Set End Set
End Property End Property
Public Function ConfirmaVinculacionOCProntoPago(AjusteProntoPagoPorcentajeIVA As Decimal) As Boolean Public Function ConfirmaVinculacionOC_RNC(AjusteProntoPagoPorcentajeIVA As Decimal) As Boolean
If VincularOcProntoPago Then If VincularOcProntoPago Then
Return True Return True
Else Else
Dim TmpImporteRNC As Decimal = If(AjusteProntoPagoPorcentajeIVA > 0, ImporteRNC + (ImporteRNC * AjusteProntoPagoPorcentajeIVA), ImporteRNC) Dim TmpImporteRNC As Decimal = If(AjusteProntoPagoPorcentajeIVA > 0, ImporteRNC + (ImporteRNC * AjusteProntoPagoPorcentajeIVA), ImporteRNC)
Dim TmpImporteRNCProntoPago As Decimal = If(AjusteProntoPagoPorcentajeIVA > 0, ImporteRNCProntoPago + (ImporteRNCProntoPago * AjusteProntoPagoPorcentajeIVA), ImporteRNCProntoPago) Dim TmpImporteRNCProntoPago As Decimal = If(AjusteProntoPagoPorcentajeIVA > 0, ImporteRNCProntoPago + (ImporteRNCProntoPago * AjusteProntoPagoPorcentajeIVA), ImporteRNCProntoPago)