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

--FIX aplicacion de NC/Ant en dolares

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-13 14:41:00 -07:00
parent d642a1c3dd
commit 3a1b200d15
3 changed files with 23 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsPaginas.vb
View File

@@ -7742,6 +7742,8 @@ Public Class ClsPaginas
'Dim urlHost As String = "http://localhost:2202/"
If EsProduccion Then
urlHost = "http://192.200.113.178:6599/"
Else
urlHost = "http://localhost:2202/"
End If
'SITIO DE PRUEBA EN IIS
Dim Url As Uri = New Uri(String.Format("{0}{1}", urlHost, Opcion))

37
App_Code/Modelos.vb
View File

@@ -3548,32 +3548,35 @@ Namespace Modelos
If Not ErrorPrepoliza AndAlso ObjFactura.CveTipoAmortizacionAnticipo = 2 AndAlso ObjFactura.EsNCAmortizacion AndAlso ObjFactura.TipoDocto.Contiene("Egs") AndAlso ObjFactura.DtAnticiposAplicados IsNot Nothing Then
For Each row2 As DataRow In ObjFactura.DtAnticiposAplicados.Rows
If row2("CveConceptoContable").ToString().ToEntero() = 3 Then
CveIEAnticipo = row2("CveIE").ToString().ToEntero()
For Each RowAnticipo As DataRow In ObjFactura.DtAnticiposAplicados.Rows
If RowAnticipo("Tipo").ToString() = "Ant" AndAlso RowAnticipo("CveConceptoContable").ToString().ToEntero().Contiene(3, 295) Then
importeMovimiento = row2("Importe").ToString().ToDecimal() '- ((row2.FCTextBox("TxtAnticipo" & row2.RowIndex).Text.ToDecimal / row2.DataKey("TotalAnticipo").ToDecimal) * row2.DataKey("IVAAnticipo").ToDecimal)
importeMovimiento = RowAnticipo("Importe").ToString().ToDecimal()
Dim ImporteAnticipo As Decimal = importeMovimiento
Dim CveMonedaAnticipo As Integer = row2("CveMoneda").ToString().ToEntero()
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
Dim CveMonedaAnticipo As Integer = RowAnticipo("CveMoneda").ToString().ToEntero()
If ObjFactura.CveTipoAmortizacionAnticipo = 2 Then
Dim DescuentosAnticipos As Decimal = row2("Descuentos").ToString().ToDecimal
ImporteAnticipo = ImporteAnticipo / (row2("TotalAnticipo").ToString().ToDecimal - DescuentosAnticipos) * row2("SubTotalAnticipo").ToString().ToDecimal
Dim DescuentosAnticipos As Decimal = RowAnticipo("Descuentos").ToString().ToDecimal
ImporteAnticipo = ImporteAnticipo / (RowAnticipo("TotalAnticipo").ToString().ToDecimal - DescuentosAnticipos) * RowAnticipo("SubTotalAnticipo").ToString().ToDecimal
ImporteAnticipo = ImporteAnticipo.RoundSQL(2)
End If
Dim Importe11MX As Decimal = ImporteAnticipo
CveSubProyectoContabilizar = CveSubProyectoVenta
Dim PagoAnt As New ClsPaginas.VentaPago
PagoAnt.ImportePagoVenta = 0 'DEBE SER 0 PORQUE EL PAGO A LA FACTURA YA FUE APLICADO PREVIAMENTE
PagoAnt.ImportePago = ImporteAnticipo
PagoAnt.CveIE = RowAnticipo("CveIE").ToString().ToEntero()
PagoAnt.CveMonedaPago = CveMonedaAnticipo
PagoAnt.TipoPago = "A"
PagoAnt.Fecha = ObjFactura.Fecha
PagoAnt.CveVentaAmortizacion = RowAnticipo("CveVenta").ToString().ToEntero()
PagoAnt.TCPago = RowAnticipo("TipoCambioPago").ToString().ToDecimal()
PagoAnt.AplicaTraslado = False
PagoAnt.Referencia = Referencia
PagoAnt.AplicaConceptoImpuestoPendiente = False
ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(ventaRef, PagoAnt, ObjFactura.CvePrePoliza, ObjConta)
If importeMovimiento <> 0 Then
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe11MX, Importe11MX, 11, Referencia, Concepto, CveVenta:=row2("CveVenta").ToString().ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
Exit For
End If
End If
End If
Next

3
Ventas/Ventas.aspx.vb
View File

@@ -17638,7 +17638,6 @@ Partial Class Ventas
Dim Folio = GvRowAnticipo.DataKey("Folio")
Dim Tipo = GvRowAnticipo.DataKey("Tipo")
DtAnticipos.Rows.Add(CveVenta, Importe, CveConceptoContable, CveIE, FolioFiscal, Descuentos, TotalAnticipo, SubTotalAnticipo, CveMoneda, Fecha, TipoCambioPago, Folio, Tipo)
End If
@@ -17768,7 +17767,7 @@ Partial Class Ventas
Select Case gvr.DataKey("CveConceptoContable").ToString()
Case "3", "295"
If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DdlMoneda.SelectedValue.ToEntero() = 1 Then
If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
Dim ImporteNC As Decimal = gvr.FCTextBox("TxtAnticipo" & gvr.RowIndex).Text.ToDecimal
Dim RespNC = GenerarNC(ImporteNC, DdlVendedor.SelectedValue.ToEntero(), Me.VentaActual, gvr, ObjVenta)