- creadt

Ashx/SIGFacturacion.ashx

@@ -280,7 +280,6 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             ObjFactura.Serie = Serie
             ObjFactura.Folio = Folio.ToEntero()
             ObjFactura.TipoMensajeRespuesta = TipoMensajeRespuesta.TextoLimpio
-            ObjFactura.Version = "4.0"
             ObjFactura.CveUsuario = UsuarioActual.CveUsuario
             ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
 
@@ -290,16 +289,11 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             ObjFactura.TipoDocto = "Ing"
             'ObjFactura.CveMesa = -1
             ObjFactura.Fecha = ClsPaginas.NowADS()
-            ObjFactura.CvePrePoliza = -1
             ObjFactura.FechaPago = ClsPaginas.NowADS()
-            ObjFactura.MotivoDescuento = ""
             ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
             ObjFactura.UsuarioCreo = UsuarioActual.Usuario
-            ObjFactura.CveCondicionEntrega = -1
 
-            ObjFactura.CondicionesPago = 0
             ObjFactura.TipoDocumento = "Ingresos"
-            ObjFactura.ConvertirPesos = False
             ObjFactura.CveSubProyecto = CveSubProyecto
             ObjFactura.CveSubProyectoCobranza = CveSubProyecto
             ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
@@ -309,8 +303,6 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
             'CLIENTE
             ObjFactura.CveCliente = CveCliente
             ObjFactura.SetCliente()
-            ObjFactura.CveAlmacen = -1
-
 
             'DETALLES
             ObjFactura.DtDetalle = CreaDTDetalle(Resp, UsuarioActual, DTRemisionesPS)
@@ -485,89 +477,10 @@ Public Class SIGFacturacion : Implements IHttpHandler, IRequiresSessionState
         Next
         Return Timbre
     End Function
+
     Private Function CreaDTDetalle(ByRef Retorno As Modelos.Factura.MMensajeFactura, UsuarioActual As Usuario, DtRemisionesPS As DataTable) 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("AsientoContableVentas", GetType(Integer))
-        TmpDT.Columns.Add("AplicaParaConcepto", GetType(Boolean))
-        TmpDT.Columns.Add("CveProyecto", GetType(Integer))
-        TmpDT.Columns.Add("Proyecto", GetType(String))
-        TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
-        TmpDT.Columns.Add("SubProyecto", GetType(String))
-        '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
+        Dim TmpDT As DataTable = Modelos.Factura.CreaDTFactura
-        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("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("CveTamaño", GetType(Integer))
-        TmpDT.Columns.Add("CvePromocionDetalle", GetType(Integer))
         Try
             For Each Dr As DataRow In DtRemisionesPS.Select()
                 Dim Row As DataRow = AgregarProductoServicio(Retorno, UsuarioActual, TmpDT, Dr("Consec").ToString.ToEntero(), Dr("Cantidad").ToString.ToDecimal(), Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString,