From b7a503d83096f6cb77ae69bf6f7d6464ab6b8d63 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 7 Jul 2023 11:50:35 -0700 Subject: [PATCH] -- prueba de timbrado con PAC 3 --- Ventas/Ventas.aspx.vb | 22 ++-------------------- 1 file changed, 2 insertions(+), 20 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 288dfca94..8a6b95a19 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -12657,8 +12657,7 @@ Partial Class Ventas End If - - Dim totSubTotal As Decimal = If(UsuarioActual.Empresa.CvePAC = 3, Obj.DtDetalle.SUMD("Total"), Obj.SubTotal) 'Obj.SubTotal + Dim totSubTotal As Decimal = Obj.SubTotal Dim totIVA As Decimal = Obj.IVA Dim totRetIVA As Decimal = Obj.RetIVA Dim totRetISR As Decimal = Obj.RetISR @@ -12704,6 +12703,7 @@ Partial Class Ventas 'verifica suma subtotales If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal.RoundSQL(2) <> concepto.Importe.RoundSQL(2) AndAlso Math.Abs(totSubTotal.RoundSQL(2) - concepto.Importe.RoundSQL(2)) <= 0.01 Then 'proceso de ajusta de decimales concepto.Importe = totSubTotal + concepto.ValorUnitario = totSubTotal / concepto.Cantidad End If totSubTotal = totSubTotal - concepto.Importe @@ -12841,25 +12841,12 @@ Partial Class Ventas Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString() Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").ToString() - 'Timbre.Complementos.ComercioExterior11.Destinatario.Nombre = "FARMIND CORPORATION" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Calle = "Kandaizumicho Bldg" - 'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior = "7F" - 'Timbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior = "" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Colonia = "" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Localidad = "Chiyoda-ku" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Referencia = "" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Municipio = "Kandaizumicho" - 'Timbre.Complementos.ComercioExterior11.Destinatario.CP = "101-0024" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Estado = "Tokyo" - 'Timbre.Complementos.ComercioExterior11.Destinatario.Pais = "JPN" - 'Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = "2010401130418" End If Else Timbre.Complementos.ComercioExterior11.Destinatario = Nothing End If - 'MERCANCIAS For Each Gvr As GridViewRow In GvComercioExterior.Rows Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal, @@ -12876,15 +12863,10 @@ Partial Class Ventas i += 1 Next - Else Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False End If - - - - Return Timbre End Function