El problema es que quiero filtrar por el numero de Ticket, no quiero que salga repetido.
Pero no se como utilizar el Distinct.
Espero me puedan ayudar dejo el código:
Código:
Dim resultadofinal = From c In ResTicket _
Group Join d In ResFiesta On c.TICKET Equals d.TICKET And c.CAJA Equals d.CAJA _
And c.FECOPE Equals d.FECOPE Into Group From d In Group.DefaultIfEmpty() _
Select New With {
.TICKET = c.TICKET, _
.IDCADENA = c.IDCADENA, _
.ADDR_POSTAL_CODE = c.ADDR_POSTAL_CODE, _
.CAJA = c.CAJA, _
.FECOPE = c.FECOPE, _
.RVC = c.RVC, _
.CANAL = c.CANAL, _
.TURNO = c.TURNO, _
.CODCAJERO = c.CODCAJERO, _
.TIPDOC = c.TIPDOC, _
.REFANUL = c.REFANUL, _
.RUC = c.RUC, _
.VLRVENTA = c.VLRVENTA, _
.PEDIDO = c.PEDIDO, _
.SERV = c.SERV, _
.PORCDSCTO = c.PORCDSCTO, _
.CODAUTORIZ = c.CODAUTORIZ, _
.HORA = c.HORA, _
.IGV = c.IGV, _
.MONTBRUTO = c.MONTBRUTO, _
.BONUS = c.BONUS, _
.CODDESCUENTO = c.CODDESCUENTO, _
.CODFIESTA = c.CODFIESTA, _
.CODPOD = c.CODPOD, _
.CODDRIVER = c.CODDRIVER, _
.HORASALIDA = c.HORASALIDA, _
.HORALLEGADA = c.HORALLEGADA, _
.PORCIGV = c.PORCIGV, _
.PROCRC = c.PROCRC, _
.NROSERIE = c.NROSERIE, _
.FECACTIVACION = c.FECACTIVACION, _
.FECDESACTIVACION = c.FECDESACTIVACION, _
.NETO = c.NETO, _
.FIESTA = If(d Is Nothing, "0", "1")}
Dim lstFinal As New List(Of BaseComponent.EntTickets)
Dim oEntFinal As BaseComponent.EntTickets
For Each p In resultadofinal
oEntFinal = New BaseComponent.EntTickets
oEntFinal.IDCADENA = p.IDCADENA
oEntFinal.ADDR_POSTAL_CODE = p.ADDR_POSTAL_CODE
oEntFinal.CAJA = p.CAJA
oEntFinal.TICKET = p.TICKET
oEntFinal.FECOPE = p.FECOPE
oEntFinal.RVC = p.RVC
oEntFinal.CANAL = p.CANAL
oEntFinal.TURNO = p.TURNO
oEntFinal.CODCAJERO = p.CODCAJERO
oEntFinal.TIPDOC = p.TIPDOC
oEntFinal.REFANUL = p.REFANUL
oEntFinal.RUC = p.RUC
oEntFinal.VLRVENTA = p.VLRVENTA
oEntFinal.PEDIDO = p.PEDIDO
oEntFinal.SERV = p.SERV
oEntFinal.PORCDSCTO = p.PORCDSCTO
oEntFinal.CODAUTORIZ = p.CODAUTORIZ
oEntFinal.HORA = p.HORA
oEntFinal.IGV = p.IGV
oEntFinal.MONTBRUTO = p.MONTBRUTO
oEntFinal.BONUS = p.BONUS
oEntFinal.CODDESCUENTO = p.CODDESCUENTO
oEntFinal.CODFIESTA = p.CODFIESTA
oEntFinal.CODPOD = p.CODPOD
oEntFinal.CODDRIVER = p.CODDRIVER
oEntFinal.HORASALIDA = p.HORASALIDA
oEntFinal.HORALLEGADA = p.HORALLEGADA
oEntFinal.PORCIGV = p.PORCIGV
oEntFinal.PROCRC = p.PROCRC
oEntFinal.NROSERIE = p.NROSERIE
oEntFinal.FECACTIVACION = p.FECACTIVACION
oEntFinal.FECDESACTIVACION = p.FECDESACTIVACION
oEntFinal.NETO = p.NETO
oEntFinal.FIESTA = p.FIESTA
lstFinal.Add(oEntFinal)
Next
ObtenerTickets = lstFinal
