- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Como apresentar o resultado de um select no objeto de um relatório
×
Linguagem de Programação ADVPL
Perguntas Como apresentar o resultado de um select no objeto de um relatório
- Wesley.Oliveira
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
11 anos 5 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,,103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,,103))/24)+ 'd '+
convert(varchar, DATEDIFF(HOUR,convert(datetime,Substring(Z5_DTHR,1,6)+'20'+Substring(Z5_DTHR,7,,103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,,103)) -
(DATEDIFF(MINUTE,convert(datetime,Substring(Z5_DTHR,1,6)+'20'+Substring(Z5_DTHR,7,,103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,,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
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,,103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,,103))/24)+ 'd '+
convert(varchar, DATEDIFF(HOUR,convert(datetime,Substring(Z5_DTHR,1,6)+'20'+Substring(Z5_DTHR,7,,103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,,103)) -
(DATEDIFF(MINUTE,convert(datetime,Substring(Z5_DTHR,1,6)+'20'+Substring(Z5_DTHR,7,,103),
convert(datetime,Substring(Z5_DTHR4,1,6)+'20'+Substring(Z5_DTHR4,7,,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.
- Wesley.Oliveira
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
11 anos 5 meses atrás #14745
por Wesley.Oliveira
Respondido por Wesley.Oliveira no tópico Como apresentar o resultado de um select no objeto de um relatório
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
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Como apresentar o resultado de um select no objeto de um relatório
Tempo para a criação da página:0.132 segundos