× Linguagem de Programação ADVPL

Perguntas Como apresentar o resultado de um select no objeto de um relatório

Mais
10 anos 11 meses atrás #14712 por Wesley.Oliveira
Bom dia a todos,
Primeiramente gostaria de agradecer pela colaboração de todos

Eu tenho um relatório em advpl e eu gostaria que e uma das colunas fosse exibido o resultado de um select que eu tenho que está em uma função logo abaixo das definições das colunas no fonte.
Definição da coluna:
TRCell():New(oSection,"TEMPOCAD" ,"QUERY" ,"Tempo" ,"" ,8 ,/*lPixel*/ ,{|| U_PrintReport})

Função com o select:
Static Function PrintReport(oReport,aOrdem)

Local oSection := oReport:Section(1)
Local nOrdem := oReport:GetOrder()
Local cPart
Local cFiltro := ""
Local cWhere := "%"
Local cOrderBy := ""

Local DtDe := Dtos(Mv_Par01)
Local DtAte := Dtos(Mv_Par02)
Local nStatus := Mv_par03


oSection:BeginQuery()

cWhere +="%"

BeginSql alias "QUERY"


SELECT Z5_COD,Z5_TIPOCAD,Z5_DTHR,Z5_DTHR2,Z5_DTHR3,Z5_DTHR4,Z5_DTHR5,Z5_SEQCAD,
convert(varchar, DATEDIFF(HOUR,convert(datetime,Substring(Z5_DTHR,1,6)+'20'+Substring(Z5_DTHR,7,8),103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,8),103))/24)+ 'd '+
convert(varchar, DATEDIFF(HOUR,convert(datetime,Substring(Z5_DTHR,1,6)+'20'+Substring(Z5_DTHR,7,8),103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,8),103)) -
(DATEDIFF(MINUTE,convert(datetime,Substring(Z5_DTHR,1,6)+'20'+Substring(Z5_DTHR,7,8),103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,8),103))/60))+ 'h '
FROM %Table:SZ5% SZ5
WHERE SZ5.%notdel% AND LEN(Z5_DTHR) > 12 AND LEN(Z5_DTHR4) > 12
ORDER BY Z5_COD

EndSql


oSection:EndQuery()

oSection:Print()

Return

Quem puder me ajudar eu agradeceria muito, quem não puder eu agradeço do mesmo jeito
Obrigado a todos novamente

Wesley Oliveira
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Skype: le.y.w ou wesley.oliveira

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 10 meses atrás #14745 por Wesley.Oliveira
Então pessoal alguém poderia me ajudar com a questão acima?

Obrigado a todos

Wesley Oliveira
Este endereço de email está sendo protegido de spambots. Você precisa do JavaScript ativado para vê-lo.
Skype: le.y.w ou wesley.oliveira

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.083 segundos
Joomla templates by a4joomla