fabin01 Posted November 25, 2009 Report Share Posted November 25, 2009 pessoal tirem algumas duvidas que estou estou fazendo um relatorio deste modo Function Relatorio_Atendimento_Opcoes(cRadio3,cRadio4,Label1,DtaI1,DtaF1,Label3,DtaI2,DtaF2,Label5,DtaI3,DtaF3) Local oFont1,oPen1,oPen2 Local cSQL:="" cSQL:="Select * from atendimentos " ? cRadio4 ? cRadio3 IF cRadio4 == 1 if cRadio3 == 1 cSQL += "ORDER BY codatendimento" elseif cRadio3 == 2 cSQL += "ORDER BY empresa" elseif cRadio3 == 3 cSQL += "ORDER BY programa" elseif cRadio3 == 4 cSQL += "ORDER BY status" endif ELSEIF cRadio4 == 2 if cRadio3 == 1 cSQL += "WHERE empresa = "+Label1+" AND dataatendimento BETWEEN" +DtaI1+" and "+DtaF1+" ORDER BY codatendimento" elseif cRadio3 == 2 cSQL += "WHERE empresa = "+Label1+" AND dataatendimento BETWEEN" +DtaI1+" and "+DtaF1+" ORDER BY empresa" elseif cRadio3 == 3 cSQL += "WHERE empresa = "+Label1+" AND dataatendimento BETWEEN" +DtaI1+" and "+DtaF1+" ORDER BY programa" elseif cRadio3 == 4 cSQL += "WHERE empresa = "+Label1+" AND dataatendimento BETWEEN" +DtaI1+" and "+DtaF1+" ORDER BY status" endif ELSEIF cRadio4 == 3 if cRadio3 == 1 cSQL += "WHERE empresa = "+Label3+" AND dataatendimento BETWEEN" +DtaI2+ "and" +DtaF2+ " ORDER BY codatendimento" elseif cRadio3 == 2 cSQL += "WHERE empresa = "+Label3+" AND dataatendimento BETWEEN" +DtaI2+ "and" +DtaF2+ " ORDER BY empresa" elseif cRadio3 == 3 cSQL += "WHERE empresa = "+Label3+" AND dataatendimento BETWEEN" +DtaI2+ "and" +DtaF2+ " ORDER BY programa" elseif cRadio3 == 4 cSQL += "WHERE empresa = "+Label3+" AND dataatendimento BETWEEN" +DataI2+ "and" +DataF2+ " ORDER BY status" endif ELSE if cRadio3 == 1 cSQL += "WHERE empresa = "+Label5+" AND data atendimento BETWEEN" +DtaI3+ "and" +DtaF3+ " ORDER BY codatendimento" elseif cRadio3 == 2 cSQL += "WHERE empresa = "+Label5+" AND data atendimento BETWEEN" +DtaI3+ "and" +DtaF3+ " ORDER BY empresa" elseif cRadio3 == 3 cSQL += "WHERE empresa = "+Label5+" AND data atendimento BETWEEN" +DtaI3+ "and" +DtaF3+ " ORDER BY programa" elseif cRadio3 == 4 cSQL += "WHERE empresa = "+Label5+" AND data atendimento BETWEEN" +DtaI3+ "and" +DtaF3+ " ORDER BY status" endif ENDIF ? csql USE "atendimentos" as cSQL Alias "CADATE" New Via "MySQL" Define FONT oFont1 NAME "Times New Roman" SIZE 0,10 DEFINE PEN oPen1 WIDTH 1 Define PEN oPen2 WIDTH 3 Report oReport5; Pen oPen1; Font oFont1; Title "Relção de Todos os Atendimentos Realizados",; "",; OemtoAnsi("Atendimentos Ordenado por"),; "" ; HEADER "Data: "+dtoc(date()),; "Hora: "+time(); Right; FOOTER OemtoAnsi("Pagina : ")+str(oReport5:nPage,3); CENTERED ; PREVIEW COLUMN TITLE "Codigo"; DATA CADATE->codatendimento; Size 5; GRID COLUMN TITLE "Dta Atendimento"; DATA CADATE->dataatendimento; Size 11; GRID COLUMN TITLE "Hora Inicial"; DATA CADATE->horainicial; Size 9; GRID COLUMN TITLE "Hora Final"; DATA CADATE->horafinal; Size 8; GRID COLUMN TITLE "Status"; DATA CADATE->status; Size 8; GRID COLUMN TITLE "Empresa"; DATA CADATE->empresa; Size 8; GRID COLUMN TITLE "Programa"; DATA CADATE->programa; Size 8; GRID COLUMN TITLE "Grupo Aten."; DATA CADATE->grupoatendimento; Size 10; GRID /*COLUMN TITLE "Codigo do Atendimento"; DATA CADATE->codatendimento; Size 7; GRID*/ END Report Activate Report oReport5; ON STARTPAGE Bitmaps_Relatorio_Opcoes() Close CADATE Return NIL id=code>id=code>porem esta acontecendo o erro no fivewin aquele de enviar relatorios de erro... acho que seja na data que estou pegando de outro campo que esta no formato dd/mm/aaaa e estava lendo e between trabalha com aaa-mm-dd isso tem diferença o erro seria isso? teri aque mudar o formato do meu picture? e a outra duvida é no relatorio fiz todos os campos mas tem como eu fazer aparecer assim? tenho algumas radiobuttons... por exemplo se radiobutton == 1 apareça somente campos X entenderam? tem como eu fazer isso? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
fabin01 Posted November 25, 2009 Author Report Share Posted November 25, 2009 pessoal tirem algumas duvidas que estou estou fazendo um relatorio deste modo Function Relatorio_Atendimento_Opcoes(cRadio3,cRadio4,Label1,DtaI1,DtaF1,Label3,DtaI2,DtaF2,Label5,DtaI3,DtaF3) Local oFont1,oPen1,oPen2 Local cSQL:="" cSQL:="Select * from atendimentos " ? cRadio4 ? cRadio3 IF cRadio4 == 1 if cRadio3 == 1 cSQL += "ORDER BY codatendimento" elseif cRadio3 == 2 cSQL += "ORDER BY empresa" elseif cRadio3 == 3 cSQL += "ORDER BY programa" elseif cRadio3 == 4 cSQL += "ORDER BY status" endif ELSEIF cRadio4 == 2 if cRadio3 == 1 cSQL += "WHERE empresa = "+Label1+" AND dataatendimento BETWEEN" +DtaI1+" and "+DtaF1+" ORDER BY codatendimento" elseif cRadio3 == 2 cSQL += "WHERE empresa = "+Label1+" AND dataatendimento BETWEEN" +DtaI1+" and "+DtaF1+" ORDER BY empresa" elseif cRadio3 == 3 cSQL += "WHERE empresa = "+Label1+" AND dataatendimento BETWEEN" +DtaI1+" and "+DtaF1+" ORDER BY programa" elseif cRadio3 == 4 cSQL += "WHERE empresa = "+Label1+" AND dataatendimento BETWEEN" +DtaI1+" and "+DtaF1+" ORDER BY status" endif ELSEIF cRadio4 == 3 if cRadio3 == 1 cSQL += "WHERE empresa = "+Label3+" AND dataatendimento BETWEEN" +DtaI2+ "and" +DtaF2+ " ORDER BY codatendimento" elseif cRadio3 == 2 cSQL += "WHERE empresa = "+Label3+" AND dataatendimento BETWEEN" +DtaI2+ "and" +DtaF2+ " ORDER BY empresa" elseif cRadio3 == 3 cSQL += "WHERE empresa = "+Label3+" AND dataatendimento BETWEEN" +DtaI2+ "and" +DtaF2+ " ORDER BY programa" elseif cRadio3 == 4 cSQL += "WHERE empresa = "+Label3+" AND dataatendimento BETWEEN" +DataI2+ "and" +DataF2+ " ORDER BY status" endif ELSE if cRadio3 == 1 cSQL += "WHERE empresa = "+Label5+" AND data atendimento BETWEEN" +DtaI3+ "and" +DtaF3+ " ORDER BY codatendimento" elseif cRadio3 == 2 cSQL += "WHERE empresa = "+Label5+" AND data atendimento BETWEEN" +DtaI3+ "and" +DtaF3+ " ORDER BY empresa" elseif cRadio3 == 3 cSQL += "WHERE empresa = "+Label5+" AND data atendimento BETWEEN" +DtaI3+ "and" +DtaF3+ " ORDER BY programa" elseif cRadio3 == 4 cSQL += "WHERE empresa = "+Label5+" AND data atendimento BETWEEN" +DtaI3+ "and" +DtaF3+ " ORDER BY status" endif ENDIF ? csql USE "atendimentos" as cSQL Alias "CADATE" New Via "MySQL" Define FONT oFont1 NAME "Times New Roman" SIZE 0,10 DEFINE PEN oPen1 WIDTH 1 Define PEN oPen2 WIDTH 3 Report oReport5; Pen oPen1; Font oFont1; Title "Relção de Todos os Atendimentos Realizados",; "",; OemtoAnsi("Atendimentos Ordenado por"),; "" ; HEADER "Data: "+dtoc(date()),; "Hora: "+time(); Right; FOOTER OemtoAnsi("Pagina : ")+str(oReport5:nPage,3); CENTERED ; PREVIEW COLUMN TITLE "Codigo"; DATA CADATE->codatendimento; Size 5; GRID COLUMN TITLE "Dta Atendimento"; DATA CADATE->dataatendimento; Size 11; GRID COLUMN TITLE "Hora Inicial"; DATA CADATE->horainicial; Size 9; GRID COLUMN TITLE "Hora Final"; DATA CADATE->horafinal; Size 8; GRID COLUMN TITLE "Status"; DATA CADATE->status; Size 8; GRID COLUMN TITLE "Empresa"; DATA CADATE->empresa; Size 8; GRID COLUMN TITLE "Programa"; DATA CADATE->programa; Size 8; GRID COLUMN TITLE "Grupo Aten."; DATA CADATE->grupoatendimento; Size 10; GRID /*COLUMN TITLE "Codigo do Atendimento"; DATA CADATE->codatendimento; Size 7; GRID*/ END Report Activate Report oReport5; ON STARTPAGE Bitmaps_Relatorio_Opcoes() Close CADATE Return NIL id=code>id=code>porem esta acontecendo o erro no fivewin aquele de enviar relatorios de erro... acho que seja na data que estou pegando de outro campo que esta no formato dd/mm/aaaa e estava lendo e between trabalha com aaa-mm-dd isso tem diferença o erro seria isso? teri aque mudar o formato do meu picture? e a outra duvida é no relatorio fiz todos os campos mas tem como eu fazer aparecer assim? tenho algumas radiobuttons... por exemplo se radiobutton == 1 apareça somente campos X entenderam? tem como eu fazer isso? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
eevaldo Posted November 25, 2009 Report Share Posted November 25, 2009 Ola, se voce esta com problemas na comparação de variaveis de um alert() do conteudo das mesmas antes para ver o que voce esta comparando ex. alert(cVariavel1) alert(cVariavel2) quanto ao outro item nao entendi. se o radiobutton for == a 1 trazer so campos caracterres é isso? Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) eevaldowl@hotmail.com Quote Link to comment Share on other sites More sharing options...
fabin01 Posted November 25, 2009 Author Report Share Posted November 25, 2009 por exemplo evaldo... vc viu ai como eu fiz a estrutura do relatorio neh as colunas e tals... porem tem pesquisa que preciso que so apareça por exemplo nome e codigo ai as outras colunas nao precisa ai citei o exempllo se radiobutton == 1 ai apareça no ralatorio so campos x entendue onde quero cehgar?? e em relaçao a data do between vou tentar aqui valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted November 25, 2009 Report Share Posted November 25, 2009 Veja e este exemplo.. Redefine Radio oRad Var cRadio ID 105,106,107 of odlg; On change vFiltra(cRadio) Function vFiltra(cRadio) If cRadio==1 msgAlert("Vc. Selecionou opção 1") ElseIf cRadio==2 msgalert("Vc. Selecionou opção 2") ElseIf cRadio==3 msgalert("Vc. Selecionou opção 3") endif Return .t. id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- ico.corumba@gmail.com -- Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
eevaldo Posted November 25, 2009 Report Share Posted November 25, 2009 entao é simples use o valor da variavel do seu radiobutton if cradio1 == 1 CAMPO1 CAMPO2 CAMPO3 ELSEIF CRADIO == 2 CAMPO5 CAMPO6 ELSEIF CRADIO == 3 CAMPO1 CAMPO6 e assim por diante vc monta o rel de acordo com o radio Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) eevaldowl@hotmail.com Quote Link to comment Share on other sites More sharing options...
fabin01 Posted November 25, 2009 Author Report Share Posted November 25, 2009 citação:Veja e este exemplo.. Redefine Radio oRad Var cRadio ID 105,106,107 of odlg; On change vFiltra(cRadio) Function vFiltra(cRadio) If cRadio==1 msgAlert("Vc. Selecionou opção 1") ElseIf cRadio==2 msgalert("Vc. Selecionou opção 2") ElseIf cRadio==3 msgalert("Vc. Selecionou opção 3") endif Return .t. id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- ico.corumba@gmail.com -- Não Abandone Seu Tópicoid=red> id=quote>id=quote>no caso ico meu radiobutton ta funcionando perfeitamente, acho que nao estou sendo claro na minha duvida... é o seguinte vamos supor que tenho um relatorio com campos codigo nome endereço certo tenho uma tela que tem duas radio buttons na radiobutton um ta assim codigo e nome e na radiobutton 2 ta assim nome e endereço, lembrando que o relatorio que fiz tem codigo nome e endereço ai queria saber se tem como se o usuario escolher o radiobutton1 no relatori so vir o codigo e o nome entenderam agora? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Quote Link to comment Share on other sites More sharing options...
Luisão Posted November 25, 2009 Report Share Posted November 25, 2009 Use o sqlDate id=code>id=code>Luis Fernando Jr. (Luisão) "The important thing in life is to believe that while you are alive, it's never to late" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
fabin01 Posted November 25, 2009 Author Report Share Posted November 25, 2009 citação:Use o sqlDate id=code>id=code>Luis Fernando Jr. (Luisão) "The important thing in life is to believe that while you are alive, it's never to late" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY id=quote>id=quote>luizao fiz as aletraçoes porem esta acontecendo este erro o que pode ser?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 Pelles C Editado por - fabin01 on 26/11/2009 08:29:51 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.