<%@ WebHandler Language="VB" Class="SIGFacturacionCiclica" %>
'Option Explicit On
'Option Strict On

Imports System
Imports System.Web
Imports System.Data
Imports Newtonsoft.Json.Linq
Imports Extensiones
Imports System.IO
Imports Microsoft.AspNet.SignalR

Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionState
    Public Sub ProcessRequest(ByVal context As HttpContext) Implements IHttpHandler.ProcessRequest
        context.Response.ContentType = "text/plain"
        Dim retorno = False
        Try
            If context.Request("Metodo") IsNot Nothing Then
                Select Case context.Request("Metodo")
                    Case "EjecutaServicio"
                        ModExtensiones.GuardaLogAD("Servicio Ejecutado...........", "LogFacturacionCiclica")
                        retorno = IniciaFacturacionMasiva()
                End Select

            End If

        Catch ex As Exception
            ex.GuardaLog(ex.Message)
        End Try

        If retorno Then
            context.Response.Write("True")
        Else
            context.Response.Write("False")
        End If
    End Sub

    Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable
        Get
            Return False
        End Get
    End Property

    Private Function Parametros(Cadena As String) As Hashtable
        Dim P1() As String = Cadena.Split("&"c)
        Dim Tmp As String
        Dim P2() As String

        Dim URLParametros As New Hashtable

        For Each Tmp In P1
            P2 = Tmp.Replace("%26%", "&").Split("="c)
            URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
        Next
        Return URLParametros
    End Function

#Region "V A L I D A  - D A T O S"
    Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario
        Dim UsuarioActual As Usuario = Nothing
        Dim ObjUsuarios As New ClsSisUsuarios
        If ObjUsuarios.GetUsuarios(100) Then
            If ObjUsuarios.DtResultados.Rows.Count > 0 Then
                Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
                Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
                UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
                UsuarioActual.CveEmpresa = CveEmpresa
                CreaObjetoEmpresa(UsuarioActual)
            End If
        End If
        ObjUsuarios.Dispose()
        Return UsuarioActual
    End Function
    Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)

        Dim ObjEmpresa As New ClsSisEmpresas()
        If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
            If ObjEmpresa.GetEmpresasFuncionalidades(UsuarioActual.CveEmpresa) Then
                Dim dttmp As Data.DataTable = ObjEmpresa.DtResultados

                Dim EmpresasFuncionalidades As New HybridDictionary
                For Each Row As Data.DataRow In dttmp.Rows
                    EmpresasFuncionalidades.Add(Convert.ToInt32(Row("CveFuncionalidad")), Row("Valor").ToString)
                Next
                ObjEmpresa.Empresa.SetFuncionalidades(EmpresasFuncionalidades)
            End If

            UsuarioActual.Empresa = ObjEmpresa.Empresa
        End If
        ObjEmpresa.Dispose()
    End Sub

#End Region

    Private Function IniciaFacturacionMasiva() As Boolean
        Dim Retorno As Boolean = True
        Dim FechaRef As DateTime = DateTime.Now
        Dim DTCicloComercial As DataTable = Nothing

        Using ObjContratos As New ClsContratos
            If ObjContratos.CicloComercialGet(-1, -1, -1, -1, FechaRef, FechaRef, -1) Then
                DTCicloComercial = ObjContratos.DtResultados.FiltraParametros("FueFacturado = 0 AND FacturacionCiclicaAutomatico = 1")
            End If
        End Using

        If DTCicloComercial IsNot Nothing Then
            For Each RowEmpresa As DataRow In DTCicloComercial.FiltraParametros("", DistinctColumns:={"CveEmpresa"}).Rows
                Dim CveEmpresa As Integer = RowEmpresa("CveEmpresa").ToString().ToEntero()
                Dim UsuarioActual = ValidaUsuarioSistema(CveEmpresa)
                If UsuarioActual IsNot Nothing Then
                    Retorno = EjecutarFacturacionMasiva(UsuarioActual, DTCicloComercial.FiltraParametros($"CveEmpresa = {CveEmpresa}"))
                End If
            Next
        End If

        Return Retorno
    End Function

    Private Function EjecutarFacturacionMasiva(UsuarioActual As Usuario, DTCicloComercial As DataTable) As Boolean
        Dim Retorno As Boolean = False

        If DTCicloComercial IsNot Nothing Then
            For Each Row As DataRow In DTCicloComercial.Rows

                If Row("Observaciones").ToString().Contains("{DIA}") Then
                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{DIA}", DateTime.Now.Day.ToString())
                End If

                If Row("Observaciones").ToString().Contains("{MES}") Then
                    Dim fecha As DateTime = DateTime.Now
                    Dim formatoFecha = Globalization.CultureInfo.CurrentCulture.DateTimeFormat
                    Dim nombreMes = formatoFecha.GetMonthName(fecha.Month).ToUpper()

                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{MES}", nombreMes)
                End If

                If Row("Observaciones").ToString().Contains("{AÑO}") Then
                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{AÑO}", DateTime.Now.Year.ToString())
                End If

                If Row("Observaciones").ToString().Contains("{TC}") Then
                    Row("Observaciones") = Row("Observaciones").ToString().Replace("{TC}", GlobalTipoCambio(Now).FormatoNumero)
                End If

                Dim Resp = EmitirImprimir(UsuarioActual, Row)

                If Resp.CveVenta > 0 Then
                    Retorno = True
                End If

            Next

        End If

        Return Retorno
    End Function

    Private Function EmitirImprimir(UsuarioActual As Usuario, RowCiclo As DataRow) As Modelos.Factura.MMensajeFactura
        Dim Resp As New Modelos.Factura.MMensajeFactura

        Dim ObjFactura = CreaObjetosVenta(UsuarioActual, RowCiclo)

        If ObjFactura Is Nothing Then
            Resp.Mensajes.Add("Ocurrió un error al procesar los datos de la Venta ")
            ObjFactura = Nothing
            Return Resp
        End If

        If ObjFactura.CveCliente > 0 Then
            If ObjFactura.DtDetalle.Rows.Count > 0 Then
                Resp = ObjFactura.EmitirFactura()
            Else
                Resp.Mensajes.Add("No se pudo completar facturación por que no se encontraron partidas ")
            End If
        Else
            Resp.Mensajes.Add("No se pudo completar facturación por que no se encontraro el cliente ")
        End If

        Return Resp
    End Function

#Region "P R E P A R A - V E N T A"
    Private Function CreaDTVentas() As DataTable
        Dim TmpDT = 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("IdCtaContVentas", 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))
        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("CveTamaño", GetType(Integer))
        TmpDT.Columns.Add("EsCargo", GetType(Boolean))

        Return TmpDT
    End Function
    Private Function CreaObjetosVenta(UsuarioActual As Usuario, DR As DataRow) As Modelos.Factura
        Dim ObjFactura = New Modelos.Factura(UsuarioActual)
        Try
            ObjFactura.DirectorioServidor = HttpContext.Current.Server.MapPath("/")

            Dim CveProyecto As String = ""
            Dim CveSubProyecto As String = ""
            Dim Proyecto As String = ""
            Dim SubProyecto As String = ""
            Dim CveCicloComercial = DR("CveCicloComercial").ToString().ToEntero()

            ObjFactura.CveCicloComercial = CveCicloComercial

            Dim TmpDT As DataTable = CreaDTVentas()

            ObjFactura.Version = "3.3"
            ObjFactura.CveUsuario = UsuarioActual.CveUsuario
            ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
            ObjFactura.ConvertirPesos = False
            ObjFactura.CveMoneda = DR("CveMoneda").ToString.ToEntero
            ObjFactura.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ")
            ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DR("CveMoneda").ToString.ToEntero}")
            ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, GlobalTipoCambio(Now))
            ObjFactura.TipoDocto = "Ing"
            ObjFactura.RefDocto = ""
            ObjFactura.Folio = -1
            ObjFactura.Serie = "-1"
            ObjFactura.CveMesa = -1
            ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate
            ObjFactura.CvePrePoliza = -1
            ObjFactura.CveMetodoPago = 1
            ObjFactura.MetodoPago = "Efectivo"
            ObjFactura.FechaPago = DateTime.Today
            ObjFactura.MotivoDescuento = ""
            ObjFactura.Observaciones = DR("Observaciones").ToString
            ObjFactura.FechaEjecucion = DateTime.Today
            'ObjFactura.ClaveMetodoPagoSAT = GlobalDTMetodosPago.FiltroPrimeroValor("ClaveSAT", $"CveMetodoPago = {1}")
            ObjFactura.UsuarioCreo = UsuarioActual.Usuario
            ObjFactura.CveCondicionEntrega = -1
            ObjFactura.CondicionEntrega = ""
            ObjFactura.NumeroCuenta = ""
            'ObjFactura.CveSucursal = GlobalDTSucursales.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero
            'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim
            ObjFactura.CondicionesPago = 0
            ObjFactura.FormaPago = 0
            'ObjFactura.SerieFolio = String.Format("{0}-{1}", LblSerie.Text, TxtFolio.Text)
            ObjFactura.PedidoContrato = ""
            ObjFactura.NumeroContrato = DR("NumeroContrato").ToString
            ObjFactura.DescripcionContrato = DR("DescripcionContrato").ToString
            ObjFactura.CveCorte = -1
            ObjFactura.TipoDocumento = "Factura"
            ObjFactura.Alfa1 = ""
            ObjFactura.Alfa2 = ""
            ObjFactura.Alfa3 = ""
            'Totales, Y se llena TmpDTImpuestos
            ObjFactura.Descuento = 0
            ObjFactura.Amortizacion = 0
            ObjFactura.CveContrato = DR("CveContrato").ToString.ToEntero
            CveProyecto = DR("CveProyecto").ToString
            Proyecto = DR("ProyectoContrato").ToString
            CveSubProyecto = DR("CveSubProyecto").ToString
            ObjFactura.CveSubProyecto = CveSubProyecto.ToEntero
            ObjFactura.CveSubProyectoCobranza = CveSubProyecto.ToEntero
            ObjFactura.CveSubProyectoEjecucion = CveSubProyecto.ToEntero

            ObjFactura.SubProyecto = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1).FiltroPrimero(String.Format("CveSubProyecto = {0}", ObjFactura.CveSubProyecto)))
            ObjFactura.SubProyectoMatriz = New Modelos.SubProyectoModel(GlobalDTSubProyectos(-1, CveSubProyecto:=-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("TipoSucursal=1"))


            SubProyecto = DR("SubProyectoContrato").ToString

            Dim DtDetalle As DataTable = Nothing
            Dim objContratos As New ClsContratos
            If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero, UsuarioActual.CveUsuario) Then
                DtDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2")
            Else
                DtDetalle = Nothing
            End If
            objContratos.Dispose()

            Dim DtR As DataRow
            ObjFactura.SubTotal = SUM(DtDetalle, "Total").ToDecimal
            ObjFactura.IVA = SUM(DtDetalle, "ImporteIVA").ToDecimal
            ObjFactura.RetIVA = SUM(DtDetalle, "ImporteRetIVA").ToDecimal
            ObjFactura.RetISR = SUM(DtDetalle, "ImporteRetISR").ToDecimal
            ObjFactura.IEPS = SUM(DtDetalle, "ImporteIEPS").ToDecimal
            ObjFactura.Total = ObjFactura.SubTotal + ObjFactura.IVA + ObjFactura.IEPS - (ObjFactura.RetIVA + ObjFactura.RetISR)

            For Each row As DataRow In DtDetalle.Rows
                Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row("CvePS").ToString().ToEntero()).FiltroPrimero("")

                DtR = TmpDT.NewRow
                DtR("CveVenta") = -1
                DtR("Codigo") = row("Codigo")
                DtR("Consec") = TmpDT.Rows.Count + 1
                DtR("Cantidad") = row("CantidadContratada")
                DtR("CveUM") = row("CveUM")
                DtR("UM") = row("UM")
                DtR("SATClaveUM") = row("SATClaveUM")
                DtR("CveClasificacion") = row("CveClasificacion")
                DtR("Clasificacion") = row("Clasificacion")
                DtR("CvePS") = row("CvePS")
                DtR("PS") = row("PS")
                DtR("CodigoPS") = row("CodigoPS")
                DtR("SATClaveProdServ") = row("SATClaveProdServ")
                DtR("NoIdentificacion") = row("NoIdentificacion")
                DtR("CveTipoPS") = drPS("CveTipoPS")
                DtR("CveTipoInvPS") = drPS("Inv_CveMetodoInventario")
                DtR("Obs") = row("Observacion").ToString
                DtR("PU") = row("PU")
                DtR("IVA") = row("PorcentajeIVA")
                DtR("PorcentajeIVA") = row("PorcentajeIVA")
                DtR("ImporteIVA") = row("ImporteIVA")
                DtR("PorcentajeIEPS") = row("PorcentajeIEPS")
                DtR("ImporteIEPS") = row("ImporteIEPS")
                DtR("PorcentajeRetIVA") = row("PorcentajeRetIVA")
                DtR("ImporteRetIVA") = row("ImporteRetIVA")
                DtR("PorcentajeRetISR") = row("PorcentajeRetISR")
                DtR("ImporteRetISR") = row("ImporteRetISR")
                DtR("Descuento") = 0
                DtR("TipoDescuento") = 0
                DtR("CveProyecto") = CveProyecto
                DtR("Proyecto") = Proyecto
                DtR("CveSubProyecto") = CveSubProyecto
                DtR("SubProyecto") = SubProyecto
                DtR("CveVentaDetalle") = 0
                DtR("CveContratoDetalle") = row("CveContratoDetalle")
                DtR("CuentaPredial") = row("CuentaPredial")
                DtR("TotalImporte") = row("Total")

                TmpDT.Rows.Add(DtR)
            Next

            'DETALLES
            ObjFactura.DtDetalle = TmpDT

            'CLIENTE
            ObjFactura.CveCliente = DR("CveCliente").ToString.ToEntero
            ObjFactura.SetCliente()

            Dim ObjCliente As New ClsClientes
            If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
                If ObjCliente.DtResultados.Rows.Count > 0 Then
                    ObjFactura.CveFormaPago33 = ObjCliente.CveFormaPago33
                    ObjFactura.FormaPago33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))
                    ObjFactura.FormaPagoSAT33 = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", String.Format("CveFormaPago = {0}", ObjCliente.CveFormaPago33))

                    ObjFactura.CveMetodoPago33 = ObjCliente.CveMetodoPago33
                    ObjFactura.MetodoPago33 = GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))
                    ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago33))

                    ObjFactura.CveUsoCFDI = ObjCliente.CveUsoCFDI
                    ObjFactura.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
                    ObjFactura.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))

                    'ObjFactura.CveMetodoPago = ObjCliente.CveMetodoPago

                    'If GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows.Count > 0 Then
                    '    ObjFactura.MetodoPago = GlobalDTMetodosPago.FiltraParametros(String.Format("CveMetodoPago = {0}", ObjCliente.CveMetodoPago)).Rows(0)("MetodoPago").ToString
                    'Else
                    '    ObjFactura.CveMetodoPago = 1
                    '    ObjFactura.MetodoPago = "Efectivo"
                    'End If
                End If
            End If

            If ObjCliente.GetSucursales(ObjFactura.CveCliente) Then
                If ObjCliente.DtResultados.Rows.Count > 0 Then
                    ObjFactura.CveClienteSucursal = If(String.IsNullOrEmpty(ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'")), -1, ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'").ToEntero())
                Else
                    ObjFactura.CveClienteSucursal = -1
                End If
            End If
            ObjCliente.Dispose()

            'SUBPROYECTO
            'ObjFactura.SetSubProyectoMatriz(Me)
            'ObjFactura.SetSubProyecto(Me)

            ObjFactura.Timbre = PreParaTimbre(ObjFactura, UsuarioActual)
        Catch ex As Exception
            ObjFactura = Nothing
            OnError("Ocurrió un error al generar la factura", ex)
        End Try


        Return ObjFactura

    End Function

    Private Function PreParaTimbre(Obj As Modelos.Factura, UsuarioActual As Usuario) As CFDITimbre
        Dim Timbre As New CFDITimbre
        Timbre.Comprobante.TipoComprobante = If(Obj.TipoDocto.Contiene("Ing", "Ant"), "I", If(Obj.TipoDocto.Contiene("Egs", "Dev"), "E", ""))
        Timbre.Comprobante.Folio = Obj.Folio.ToString
        Timbre.Comprobante.Serie = Obj.Serie
        Timbre.Comprobante.Fecha = Obj.FechaCP
        Timbre.Comprobante.FormadePago = Obj.FormaPagoSAT33
        Timbre.Comprobante.CondicionesdePago = Obj.FormaPago33
        Timbre.Comprobante.MetodoPago = Obj.ClaveMetodoPagoSAT
        Timbre.Comprobante.Subtotal = Obj.SubTotal
        Timbre.Comprobante.Descuentos = Obj.Descuento
        Timbre.Comprobante.Moneda = Obj.MonedaSAT
        Timbre.Comprobante.TipoCambio = If(Obj.CveMoneda = 1, "1", Obj.TipoCambio.ToString)
        Timbre.Comprobante.Total = Obj.Total

        Timbre.Comprobante.LugarExpedicion = Obj.SubProyecto.CP
        Timbre.Comprobante.Confirmacion = ""

        Timbre.Receptor.RFC = Obj.Cliente.RFC
        Timbre.Receptor.Nombre = Obj.Cliente.Nombre
        Timbre.Receptor.ResidenciaFiscal = ""
        Timbre.Receptor.NumeroRegistroTributario = ""
        Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI


        If Obj.CveTipoRelacion > 0 Then
            Select Case Obj.CveTipoRelacion
                Case 1
                    Timbre.CFDIRelacionados.TipoRelacion = "01"
                    Timbre.CFDIRelacionados.TipoRelacionTexto = "01-Nota de Crédito aplicada a Ingreso"
                Case 2
                    Timbre.CFDIRelacionados.TipoRelacion = "02"
                    Timbre.CFDIRelacionados.TipoRelacionTexto = "02-Nota de débito de los documentos relacionados"
                Case 3
                    Timbre.CFDIRelacionados.TipoRelacion = "03"
                    Timbre.CFDIRelacionados.TipoRelacionTexto = "03-Devolución aplicada a Ingreso"
                Case 4
                    Timbre.CFDIRelacionados.TipoRelacion = "04"
                    Timbre.CFDIRelacionados.TipoRelacionTexto = "04-Refacturación de Ingreso"
                Case 7
                    Timbre.CFDIRelacionados.TipoRelacion = "07"
                    Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
                Case 8
                    Timbre.CFDIRelacionados.TipoRelacion = "08"
                    Timbre.CFDIRelacionados.TipoRelacionTexto = "08-Factura generada por pagos en parcialidades  "
                Case 9
                    Timbre.CFDIRelacionados.TipoRelacion = "09"
                    Timbre.CFDIRelacionados.TipoRelacionTexto = "09-Factura generada por pagos diferidos"

            End Select

            'If DtVentasNC IsNot Nothing AndAlso DtVentasNC.Rows.Count > 0 Then
            '    For Each Dr As DataRow In DtVentasNC.Rows
            '        Timbre.CFDIRelacionados.UUID.Add(Dr("FolioFiscal").ToString)
            '    Next
            'Else
            '    Timbre.CFDIRelacionados.UUID.Add(HdnFolioFiscalNC.Value)
            'End If

        End If


        Dim totSubTotal As Decimal = Obj.SubTotal
        Dim totIVA As Decimal = Obj.IVA
        Dim totRetIVA As Decimal = Obj.RetIVA
        Dim totRetISR As Decimal = Obj.RetISR
        Dim i As Integer = 1

        'detalles
        Dim tPS As String = ""

        For Each drr As DataRow In Obj.DtDetalle.Rows
            If drr("PS").ToString.Length = 1 Then
                tPS = drr("Obs").ToString
            Else
                If drr("PS").ToString.Length = 0 Then
                    tPS = ""
                Else
                    tPS = String.Format("{0} {1}", drr("PS"), drr("Obs"))
                End If
            End If
            'condicionante, especial
            If UsuarioActual.CveEmpresa = 15 Then drr("UM") = "" ' les comentan que no debe de ir la etiqueta de "unidad" en el producto

            Dim concepto As New CFDIConceptos With {.Cantidad = drr("Cantidad").ToString.ToDecimal,
                                                        .Descripcion = tPS,
                                                        .ValorUnitario = drr("PU").ToString.ToDecimal,
                                                        .Importe = drr("TotalImporte").ToString.ToDecimal,
                                                        .Descuento = drr("Descuento").ToString.ToDecimal,
                                                        .Unidad = drr("UM").ToString,
                                                        .ClaveUnidad = drr("SATClaveUM").ToString,
                                                        .ClaveProdServ = drr("SATClaveProdServ").ToString,
                                                        .Noidentificacion = drr("Noidentificacion").ToString,
                                                        .CuentaPredial = drr("CuentaPredial").ToString}
            'verifica suma subtotales
            If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
                concepto.Importe = totSubTotal
            End If
            totSubTotal = totSubTotal - concepto.Importe

            'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura
            ' If drr("ImporteIVA").ToString.ToDouble > 0 Then
            concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal})
            ' End If

            If drr("ImporteIEPS").ToString.ToDouble > 0 Then
                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString.ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString.ToDecimal})
            End If

            If drr("ImporteRetIVA").ToString.ToDouble > 0 Then 'si hay retenciones
                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString.ToDecimal})
            End If

            If drr("ImporteRetISR").ToString.ToDouble > 0 Then 'retención de ISR
                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetISR").ToString.ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString.ToDecimal})
            End If

            Timbre.Conceptos.Add(concepto)
            i += 1
        Next
        Return Timbre
    End Function
#End Region


#Region "G L O B A L - D T"
    Public Property GlobalTipoCambio(Optional Fecha As Date = MinFecha) As Double
        Get
            If GlobalTipoCambio <= 0 Then
                'sino tiene dato lo recargo por si ya esta insertado
                If Fecha = MinFecha Then Fecha = Now

                Dim ObjGral As New ClsGenerales
                If ObjGral.GetTipoCambio(-1, Fecha) AndAlso ObjGral.DtResultados.Rows.Count > 0 Then

                    HttpContext.Current.Application("GlobalTipoCambio") = ObjGral.DtResultados.Rows(0)("TipoCambio").ToString.ToDouble
                Else
                    HttpContext.Current.Application("GlobalTipoCambio") = 0
                End If
                ObjGral.Dispose()

            End If

            Return HttpContext.Current.Application("GlobalTipoCambio").ToString.ToDouble
        End Get
        Set(value As Double)
            HttpContext.Current.Application("GlobalTipoCambio") = value
        End Set

    End Property
    Property GlobalDTMonedas() As DataTable
        Get
            GlobalDTMonedas = DirectCast(HttpContext.Current.Application("GlobalDTMonedas"), DataTable)
        End Get
        Set(value As DataTable)
            HttpContext.Current.Application("GlobalDTMonedas") = value
        End Set
    End Property
    ReadOnly Property GlobalDTPS(CveEmpresa As Integer, Optional CvePS As Integer = -1, Optional SATClavePS As String = "-1", Optional AplicaParaVenta As Integer = -1, Optional Estatus As Integer = -1, Optional Codigo As String = "-1") As DataTable
        Get
            Dim ObjPS As New ClsProductosServicios

            If ObjPS.GetPS(CvePS, -1, CveEmpresa, Codigo:=Codigo, SATClavePS:=SATClavePS, pAplicaParaVenta:=AplicaParaVenta, pEstado:=Estatus) Then
                GlobalDTPS = ObjPS.DtResultados
            Else
                GlobalDTPS = Nothing
            End If

            ObjPS.Dispose()
        End Get
    End Property
    Public Property GlobalDTVtaFormaPago() As DataTable
        Get
            GlobalDTVtaFormaPago = DirectCast(HttpContext.Current.Application("GlobalDTVtaFormaPago"), DataTable)
        End Get
        Set(value As DataTable)
            HttpContext.Current.Application("GlobalDTVtaFormaPago") = value
        End Set
    End Property
    Property GlobalDTVtaMetodoPago() As DataTable
        Get
            GlobalDTVtaMetodoPago = DirectCast(HttpContext.Current.Application("GlobalDTVtaMetodoPago"), DataTable)
        End Get
        Set(value As DataTable)
            HttpContext.Current.Application("GlobalDTVtaMetodoPago") = value
        End Set
    End Property
    Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
        Get
            If EsPersonaFisica <> -1 Then
                Dim Tipo As String = ""
                If EsPersonaFisica = 1 Then Tipo = "AplicaPersonaFisica = 1" Else Tipo = "AplicaPersonaMoral = 1"

                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTSATUsosCFDI"), DataTable), Tipo, " UsoCFDIDescripcion", DataViewRowState.CurrentRows)
                GlobalDTSATUsosCFDI = Dv.ToTable
                Dv.Dispose()
            Else
                GlobalDTSATUsosCFDI = DirectCast(HttpContext.Current.Application("GlobalDTSATUsosCFDI"), DataTable)
            End If

        End Get
        Set(ByVal value As DataTable)
            HttpContext.Current.Application("GlobalDTSATUsosCFDI") = value
        End Set
    End Property

    Property GlobalDTMetodosPago() As DataTable
        Get
            GlobalDTMetodosPago = DirectCast(HttpContext.Current.Application("GlobalDTMetodosPago"), DataTable)
        End Get
        Set(value As DataTable)
            HttpContext.Current.Application("GlobalDTMetodosPago") = value
        End Set
    End Property
    Public Property GlobalDTSubProyectos(CveProyecto As Integer, Optional CveSubProyecto As Integer = -1, Optional CveEmpresa As Integer = -1, Optional Estatus As Integer = 1) As DataTable
        Get
            Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
            'sino existe, recarga los datos
            If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Or (DirectCast(HttpContext.Current.Application(AppNombre), DataTable) IsNot Nothing AndAlso DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0) Then
                Dim P As New ClsSubProyectos
                If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = P.DtResultados
                P.Dispose()
            End If

            If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then
                Dim StrSQL As New StringBuilder
                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
                If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
                If Estatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", Estatus)
                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)

                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
                GlobalDTSubProyectos = Dv.ToTable
                Dv.Dispose()

            Else
                GlobalDTSubProyectos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
            End If

        End Get
        Set(ByVal value As DataTable)
            Dim AppNombre As String = String.Format("GlobalDTSubProyectos-{0}", CveEmpresa)
            HttpContext.Current.Application(AppNombre) = value
        End Set
    End Property
#End Region
End Class