709 lines
34 KiB
Plaintext
709 lines
34 KiB
Plaintext
<%@ 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 |