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

-- prueba de timbrado con PAC 3

Browse Source
This commit is contained in:
rrene
2023-07-07 11:50:35 -07:00
parent d8891b7259
commit b7a503d830
1 changed files with 2 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Ventas/Ventas.aspx.vb
View File

@@ -12657,8 +12657,7 @@ Partial Class Ventas
End If End If
Dim totSubTotal As Decimal = Obj.SubTotal
Dim totSubTotal As Decimal = If(UsuarioActual.Empresa.CvePAC = 3, Obj.DtDetalle.SUMD("Total"), Obj.SubTotal) 'Obj.SubTotal
Dim totIVA As Decimal = Obj.IVA Dim totIVA As Decimal = Obj.IVA
Dim totRetIVA As Decimal = Obj.RetIVA Dim totRetIVA As Decimal = Obj.RetIVA
Dim totRetISR As Decimal = Obj.RetISR Dim totRetISR As Decimal = Obj.RetISR
@@ -12704,6 +12703,7 @@ Partial Class Ventas
'verifica suma subtotales '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 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.Importe = totSubTotal
concepto.ValorUnitario = totSubTotal / concepto.Cantidad
End If End If
totSubTotal = totSubTotal - concepto.Importe totSubTotal = totSubTotal - concepto.Importe
@@ -12841,25 +12841,12 @@ Partial Class Ventas
Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString() Timbre.Complementos.ComercioExterior11.Destinatario.Pais = RowDireccion("ClaveSATPais").ToString()
Timbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib = RowDireccion("COM_NumRegIdTrib").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 End If
Else Else
Timbre.Complementos.ComercioExterior11.Destinatario = Nothing Timbre.Complementos.ComercioExterior11.Destinatario = Nothing
End If End If
'MERCANCIAS 'MERCANCIAS
For Each Gvr As GridViewRow In GvComercioExterior.Rows For Each Gvr As GridViewRow In GvComercioExterior.Rows
Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal, Dim mercancia As New CFDIComercioExterior11Mercancias With {.CantidadAduana = Gvr.FCTextBox("TxtCantidad").Text.ToDecimal,
@@ -12876,15 +12863,10 @@ Partial Class Ventas
i += 1 i += 1
Next Next
Else Else
Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False Timbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto = False
End If End If
Return Timbre Return Timbre
End Function End Function