--FIX Pronto pago

2025-04-24 18:18:00 -07:00
parent 14c720ce62
commit 1ef3099b38
2 changed files with 8 additions and 95 deletions
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1307,6 +1307,7 @@ Namespace Modelos
            TmpDT.Columns.Add("Descuento", GetType(Decimal))
            TmpDT.Columns.Add("TipoDescuento", GetType(Integer))
            TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
+            TmpDT.Columns.Add("TotalConImpuestos", GetType(Decimal))
            TmpDT.Columns.Add("Total", GetType(Decimal))
            TmpDT.Columns.Add("RetIVA", GetType(Decimal))
            TmpDT.Columns.Add("RetISR", GetType(Decimal))
@@ -1385,8 +1386,14 @@ Namespace Modelos
            TmpDT.Columns.Add("CveViajePasajero", GetType(Integer))
            TmpDT.Columns("CveViajePasajero").DefaultValue = -1

+            'COLUMNAS DE Ventas.aspx
            TmpDT.Columns.Add("CantidadConversion", GetType(Decimal))
            TmpDT.Columns("CantidadConversion").DefaultValue = 0
+            TmpDT.Columns.Add("NumeroPedimento", GetType(String))
+            TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+            TmpDT.Columns.Add("PSAlterno", GetType(String))
+            TmpDT.Columns.Add("Costo", GetType(Decimal))
+            TmpDT.Columns("Costo").DefaultValue = 0D

            'COLUMNAS DE PV.aspx
            TmpDT.Columns.Add("PUOriginal", GetType(Decimal))
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37861,7 +37861,7 @@ Partial Class Ventas
                    ObjFacturaProntoPago.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
                    ObjFacturaProntoPago.ClaveUsoCFDISAT = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))

-                    ObjFacturaProntoPago.DtDetalle = CreaDTDetalleNCProntoPago()
+                    ObjFacturaProntoPago.DtDetalle = Modelos.Factura.CreaDTFactura() 'CreaDTDetalleNCProntoPago()

                    CargaImpuestosProntoPago(ObjFacturaProntoPago, ObjFactura, ObjCliente.DesglosaIEPS, ObjCliente.RetIVA.ToDecimal, ObjCliente.RetISR.ToDecimal)

@@ -38156,100 +38156,6 @@ Partial Class Ventas
        Return query.QueryToDataTable(False)
    End Function

-    Protected Function CreaDTDetalleNCProntoPago() As DataTable
-        Dim TmpDT As New DataTable
-        TmpDT.Columns.Add("CveVenta", GetType(Integer))
-        TmpDT.Columns.Add("Consec", GetType(Integer))
-        TmpDT.Columns.Add("Cantidad", GetType(Decimal))
-        TmpDT.Columns.Add("Codigo", GetType(String))
-        TmpDT.Columns.Add("CveUM", GetType(Integer))
-        TmpDT.Columns.Add("UM", GetType(String))
-        TmpDT.Columns.Add("SATClaveUM", GetType(String))
-        TmpDT.Columns.Add("CveClasificacion", GetType(Integer))
-        TmpDT.Columns.Add("Clasificacion", GetType(String))
-        TmpDT.Columns.Add("CvePS", GetType(Integer))
-        TmpDT.Columns.Add("PS", GetType(String))
-        TmpDT.Columns.Add("CodigoPS", GetType(String))
-        TmpDT.Columns.Add("SATClaveProdServ", GetType(String))
-        TmpDT.Columns.Add("NoIdentificacion", GetType(String))
-        TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
-        TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
-        TmpDT.Columns.Add("Serie", GetType(String))
-        TmpDT.Columns.Add("CuentaPredial", GetType(String))
-        TmpDT.Columns.Add("Obs", GetType(String))
-        TmpDT.Columns.Add("TiempoEntrega", GetType(String))
-        TmpDT.Columns.Add("PU", GetType(Decimal))
-        TmpDT.Columns.Add("IVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteIVA", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeIVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteRetIVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteRetISR", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeRetIVA", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeRetISR", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteIEPS", GetType(Decimal))
-        TmpDT.Columns.Add("IEPS", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeIEPS", GetType(Decimal))
-        TmpDT.Columns.Add("Descuento", GetType(Decimal))
-        TmpDT.Columns.Add("TipoDescuento", GetType(Integer))
-        TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
-        TmpDT.Columns.Add("Total", GetType(Decimal))
-        'Para uso del módulo contable 
-        TmpDT.Columns.Add("CveProyecto", GetType(Integer))
-        TmpDT.Columns.Add("Proyecto", GetType(String))
-        TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
-        TmpDT.Columns.Add("SubProyecto", GetType(String))
-        TmpDT.Columns.Add("CveVentaDetallePadre", GetType(Integer))
-        'TipoDescuento: 1 = Descuento * PU; 2 = Descuento por Total del concepto
-        TmpDT.Columns.Add("CvePresupuestoIngreso", GetType(Integer))
-        TmpDT.Columns.Add("CveFuenteRecaudacion", GetType(Integer))
-        'Contratos
-        TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
-        'Remisiones a Facturas
-        TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer))
-        TmpDT.Columns.Add("CveVentaDetalleRemision", GetType(Integer))
-        TmpDT.Columns.Add("CveVentaDetalleCotizacion", GetType(Integer))
-        'Pedido2 a Facturas
-        TmpDT.Columns.Add("CveVentaDetallePedido2", GetType(Integer))
-        TmpDT.Columns.Add("Origen", GetType(Integer))
-        'Ordenes Servicio
-        TmpDT.Columns.Add("CveOS", GetType(Integer))
-        TmpDT.Columns.Add("CveOSDetalle", GetType(Integer))
-        TmpDT.Columns.Add("SeFacturara", GetType(Integer))
-        TmpDT.Columns.Add("Folio", GetType(Integer))
-        TmpDT.Columns.Add("Estatus", GetType(String))
-        'Ordenamiento
-        TmpDT.Columns.Add("Orden", GetType(Integer))
-        TmpDT.Columns.Add("TipoDocto", GetType(String))
-        'OC
-        TmpDT.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
-        TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
-        TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
-        TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadFacturadaCot", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadFacturadaPed2", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadInventario", GetType(Decimal))
-        TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
-        TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
-        TmpDT.Columns.Add("CodigoObjetoImpuesto", GetType(String))
-        TmpDT.Columns.Add("CveTamaño", GetType(Integer))
-        TmpDT.Columns.Add("EsCargo", GetType(Boolean))
-        TmpDT.Columns.Add("CveMarca", GetType(Integer))
-        TmpDT.Columns.Add("CvePrecioLista", GetType(Integer))
-        TmpDT.Columns.Add("PrecioLista", GetType(String))
-        TmpDT.Columns.Add("CveActivoFijo", GetType(Integer))
-        TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal))
-        TmpDT.Columns.Add("AFValorInicial", GetType(Decimal))
-        TmpDT.Columns.Add("NumTurnos", GetType(Decimal))
-        TmpDT.Columns("NumTurnos").DefaultValue = 0D
-        TmpDT.Columns.Add("NumeroPedimento", GetType(String))
-        TmpDT.Columns.Add("TotalConImpuestos", GetType(Decimal))
-        TmpDT.Columns.Add("Costo", GetType(Decimal))
-        TmpDT.Columns("Costo").DefaultValue = 0D
-
-        Return TmpDT
-    End Function
    Private Function InicializaDTVentasNCProntoPago() As DataTable
        Dim DtVentasNC As New DataTable
        DtVentasNC.Columns.Add("CveVenta", GetType(Integer))