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

-

Browse Source
This commit is contained in:
rrene
2024-04-13 13:15:44 -07:00
parent d4ca5aa6c4
commit fbfffac3ee
2 changed files with 17 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Compras/Compras.aspx.vb
View File

@@ -1511,10 +1511,10 @@ Partial Class Compras_Compras
ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
DdlTipoComprobante.Items.Clear()
DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
End If
'If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
' DdlTipoComprobante.Items.Clear()
' DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
'End If
ViewState("CveCompra") = Request("CveCompra")
CargaCompra()
@@ -2990,6 +2990,10 @@ Partial Class Compras_Compras
End If
DdlTipoComprobante.Enabled = False
If dr("TipoDocto").ToString = "RNC" Then
DdlTipoComprobante.Items.Add(New ListItem("Remisión de Nota de Crédito", "RNC"))
End If
DdlTipoComprobante.SelectedValue = dr("TipoDocto").ToString
If dr("TipoDocto").ToString.Contiene("Fac", "Ant") Then
ChkAplicaNotaCredito.Enabled = True
@@ -3245,8 +3249,6 @@ Partial Class Compras_Compras
BtnEliminarCompra.Visible = False
End If
Else
Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
End If
@@ -8354,7 +8356,7 @@ Partial Class Compras_Compras
If ChkPagarConDolares.Checked Then Pago.TCCambioMoneda = TipoCambioAnt
Select Case gvr.DataKey("TipoDocto")
Case "NC", "DEV"
Case "NC", "DEV", "RNC"
CveConceptoCompra = If(CveMonedaAnticipo = 1, 60, 60)
CveConceptoCompraComplementaria = 235
CveIE = -1
@@ -14743,6 +14745,10 @@ Partial Class Compras_Compras
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 AndAlso (AjusteProntoPagoConIVA > 0 Or AjusteProntoPagoSinIVA > 0) Then
Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
If CvePS_RNC = 0 Then
Alert("producto utilizado para diferencia no definido.")
Exit Sub
End If '876906
Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
Dim SubProyecto As String = GlobalDTSubProyectos(-1, CveSubProyectoPrincipal, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto")
@@ -20875,7 +20881,6 @@ Partial Class Compras_Compras
Return False
End If
If Not CveSubProyectoPrincipal > 0 Then
Alert("No esta definido el Sub Proyecto.", TipoMensaje.MsgAdvertencia)
Return False
@@ -20900,9 +20905,6 @@ Partial Class Compras_Compras
CompraRNC.Folio = TxtFolio.Text
CompraRNC.CveCompraAmortizacion = CveCompraRegistrada
Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero
If PSRow("CvePSCargo").ToString <> "" Then
CveTipoPS = 2
@@ -20934,8 +20936,8 @@ Partial Class Compras_Compras
CompraRNCProntoPAgo.NombreProveedor = DdlProveedor.SelectedItem.Text
CompraRNCProntoPAgo.Fecha = TxtFecha.Text.ToDate
CompraRNCProntoPAgo.CveMoneda = DdlMoneda.SelectedValue.ToEntero
CompraRNCProntoPAgo.Serie = $"{TxtSerie.Text}_P"
CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}_P"
CompraRNCProntoPAgo.Serie = $"PP-{TxtSerie.Text}"
CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}"
CompraRNCProntoPAgo.CveCompraAmortizacion = CveCompraRegistrada
Dim IVARNCProntoPago As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
@@ -20945,12 +20947,8 @@ Partial Class Compras_Compras
End If
End If
End If
Return respuesta
End Function
@@ -20974,9 +20972,9 @@ Partial Class Compras_Compras
Else
If ImporteRNCProntoPago > 0 Then
LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generaran dos Remisiones de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")} y otra por pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra. <br/> Se generaran las siguientes Remisiones de Nota de Crédito. <br/> - Descuento de ${ImporteRNC.ToString("###,###,###.00")}.<br/> - Pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
Else
LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
End If
RegistraScript("$('#DVModalConfirmaVinculacionProntoPago').modal('show');")

3
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -1,9 +1,6 @@
Option Explicit On
Option Strict On
Imports System
Imports System.Linq
Imports System.Web.UI.WebControls
Imports Extensiones
Partial Class PopUpSeleccionarEmpresa