daniel_halon

Obrigado a todos pelo interesse, não consegui fazer funcionar o group com array, a solução foi mesmo criar uma bd temporária e ficou rápido tambe

ém. Abraços

Obrigado a todos, não conseguindo o group com array, decidi criar um arquivo temporário e trabalhar desta maneira. Ficou rápido também. Valeu!

oi Aferra, obrigado pelo interesse, desta forma da erro  GROUP ON a_show[I,6], o Kapi postou un link que falava de erro na classe, e bem provável mas acho que vou seguir teu conselho, carrego em um array e passo para uma dbf temporária, a intenção de trabalhar com array e porque em rede quando consulta em uma bd grande os terminais demoram muito para processar e notei que com array diminui o tempo em 90%. Obrigado, Valeu!

Tentei mas não deu certo, deve ter alguem que tenha resolvido

Oi Kapi, obrigado por responder mas não sei se chegaste a perceber que não estou usando base de dados, carrego tudo em um array para ser mais rápido em rede, as outras funções em uso bd funciona ok, mas o group com array não consigo, sera que tens algum exemplo por ai dentro do teu baú?

Olá amigos, preciso de uma ajuda, uso Treport do fw mas não consigo usar o group, aqui esta o fonte, sera que alguem pode me dizer o que esta errado?

 TELE0060->(DbSetOrder(3))
  TELE0060->(dbSeek(vDataini))
  
   DO WHILE TELE0060->(!eof()) .AND. TELE0060->A_DTPED_60 >= vDataini .and. TELE0060->A_DTPED_60 <= vDataFin
     IF TELE0060->A_STATUS60 == 'C'
       TELE0060->(dbSkip())
       Loop
     ENDIF
     
     aadd(a_show,{TELE0060->A_TOTAL_60, TELE0060->A_DESC__60, TELE0060->A_DESBAL60, TELE0060->A_VLRPRO60, TELE0060->A_TXENT_60,;
     	            TELE0060->A_DTPED_60, TELE0060->DESC_DINHE})
     
  
     TELE0060->(dbSkip())
   ENDDO
   
   I:= 1 ; nHasta := LEN( a_show)  

 
   REPORT oReport ;
        TITLE OemToAnsi("*** RELATORIO DE VENDAS ***"),"Relatorio Interno","Referente a " + Dtoc(vDataIni) + space(1) +;
              OemToAnsi("ate") + space(1) + Dtoc(vDataFin),"","" CENTERED;
        FONT oFont1, oFont2, oFont3 ;
        HEADER "Data: " + Dtoc(date()) + "  " + time() CENTERED ;
        FOOTER OemToAnsi("Pagina: ")+str(oReport:nPage,3) CENTERED;
        PREVIEW
        
        
   
   COLUMN TITLE OemToAnsi("Num") ;
        DATA transform(I,'@E 999');
        SIZE 3

   COLUMN TITLE OemToAnsi("Data") ;
        DATA a_show[I,6]; 
        SIZE 10
       
            
   COLUMN TITLE "Faturamento" ;
        DATA  a_show[I,1]; 
        TOTAL
 
        
   COLUMN TITLE "Descontos" ;
        DATA  a_show[I,2]; 
        TOTAL
        
   COLUMN TITLE "Desc. Balcao" ;
        DATA  a_show[I,3]; 
        TOTAL
        
   COLUMN TITLE "Desc. Promo" ;
        DATA  a_show[I,4]; 
        TOTAL      
         
   COLUMN TITLE "Desc. Dinh." ;
        DATA  a_show[I,7]; 
        TOTAL      

   COLUMN TITLE "Taxa de Entrega" ;
        DATA  a_show[I,5]; 
        TOTAL;
        GRID
 
  
       
   GROUP ON a_show[6]; //data
          HEADER oReport:aGroups[1]:cValue;
          FOOTER "Pedidos: " + "[" + Alltrim(str(oReport:aGroups[1]:nCounter)) + "]"
   
 
 
 
   END REPORT 
  
  
   
   oReport:CellView()     //FORMA AS LINHAS VERTICAIS E HORIZ DAS CELDAS 
   oReport:bWhile      := { || I <= nHasta }
   oReport:bSkip       := { | | I++} 
   oReport:cGrandTotal := "Grand Total..."
   oReport:cPageTotal  := "Page Total..."
   
   oReport:oTitle:aFont[2] := {|| 2 } //1ra linha do titulo 

Finalmente resolvi.

Tirei do activate windows e coloquei assim.

oWnd:bPainted := { | hDC | PalBmpDraw( hDC, 0, 0, oPapel:hBitMap,oPapel:hPalette,oWnd:nRight+2,oWnd:nBottom+2) }

com isto mantem a tela cheia com qualquer resolução e não da mais pau.

Obrigado a todos

Oi Rogerio, vou testar assim como colocaste e depois dou um retorno.

Daniel, não entendi no teu código onde vai o bmp(foto)?

Olá amigos, tenho um problema que não estou conseguindo resolver, quem sabe alguém pode me dar uma luz. Copiei dos exemplos da Vlib do Vagner para pintar a tela principal com um bmp. Acontece que quando miniminizo o sistema e ele fica um tempo assim quando restauro ele perde o bmp e a tela fica preta, porem se não miniminizo pode ficar aberta o tempo todo que não acontece nada. Em um principio achei que era pouca memoria mas faz isto em qualquer computador. vou postar o e exemplo do ativate que e onde coloco para pintar a tela no inicio da window.

Vou dar uma pesquisada nesse exemplo, obrigado Alessandro

Kapi deixa explicar porque When .F.

Estou usando a Vget do Vagner com REDEFINE VGET, acontece que ele não disponibilizou o REDEFINE SAY, então a melhor forma de usar e que fique Bonito(como eu) foi colocar um when .f. desta forma parece um Say

Vou tentar ser mais explicito:

Mais o menos Kapi, ao pedir a pizza o cliente, ele escolhe 2, 3, ou 4 sabores na mesma o sistema abre uma tela com 4 gets, pode ser usado no maximo 4 sabores ou codigos, a soma destes 4 gets get1+'/'+get2+'/'+get3+'/'+get4 e colocado juntos em um array que contem codigo, descrição, valor e quantidade, estes dados são inseridos na DESCRIÇÃO como texto. Ao querer vizualizar o campo descrição deve aparecer os códigos(sabores) conformados na pizza com cor diferente, cada vez que aparece um barra '/' o proximo codigo deve mudar de cor. Deu pra entender algo?. na imagem que postei no link podes ver a dialog onde estou inserindo os codigos e no fundo da tela os codigos já inseridos anteriormente referentes a outra pizza.

Neste link da pra ver melhor a tela

https://www.dropbox.com/s/f39yl3bjkp9rkh9/Captura%20de%20tela%202014-09-08%2022.41.19.png?dl=0

Neste link esta a tela onde capturo os dados

https://www.dropbox.com/s/vpp483bqgxz3gxd/Captura%20de%20tela%202014-09-08%2022.20.58.png?dl=0

Marcelo, tua ideia e boa mas complicada demais, imagina que estou pegando um pedido pelo telefone em uma pizzaria onde digito o codigo do produto e a descrição do mesmo vai automaticamente nesse get do qual estamos falando, por exemplo: digito CO2 e a descrição é 'COCA COLA 2 LITROS', até ai tudo bem , mas quando o cliente que colocar varios sabores na pizza o operador digita ZZG o sistema reconhece este código como pizza e a traves de 4 gets vai digitando os codigos dos sabores da pizza, exemplo: CAL/POR/FRA, na hora de terminar de formar os três sabores, no get em questão aparece a soma de todos os três gets dos sabores com a barra de separação entre eles, é ai onde deve aparecer cada codigo diferente de sabor de pizzas com cores diferentes, assim: CAL/POR/FRA estes dados estão em um Get com a opção When .F. Para o cliente parece simples demais mas eu to queimando varios neuronios e por default tenho poucos...

Obrigado por responder Sergio, mas o exemplo que que postaste troca a cor de toda a linha do get e eu pretendo trocar a cor de determinadas letras do texto, pelo que vejo e complicado demais.

Olá Vagner, este exemplo e difícil de entender para mim e por outro lado perderia a opção de usar a vGet

A ideia até que e boa, só não sei como implantar no sistema, já que o mesmo get pode ser usado para conformar sabores de pizza como no exemplo acima ou codigos como ser borda recheada ou coca cola 2lts, como ficariam os 4 gets separados?

Olá amigos, to quebrando a cuca para fazer algo que deve ser simples porem não consigo.

Em um texto que utilizo em um Get when .F. se apresenta assim: CAL/COR/POR/LOM, cada cojunto de letras separadas pela barra deve aparecer em uma cor diferente para ressaltar o texto, por exemplo:

CAL/COR/POR/LOM, Utilizo a Vget do Vagner. Alguem tem uma idea de como fazer

oItens[1][m_cont,3]:nClrFore := CLR_VERMELHO Isto troca todo o texto mas como fazer o exemplo anterior?

Já fiz isto, oLbx:nRowPos, oLbx:Refresh e faz uma coisa muito engraçada troca os numero por todos iguais segundo a linha em que estou na medida que vou descendo pela lbx ?, vou continuar. Agora ficou assim, e mostra somente o numero 1 sem mudar depois de navegar na lbx. Parece uma coisa tão simples e que não estou conseguindo fazer.

Return

Não, não esta , e o sequencial da linha do browse o que eu quero que apareça, com Str(oLbx:nRowPos) aparece só o número 1 e quando percorro a lbx vai aparecendo o sequencial como na foto que estou inserindo

Olá Jõao, pelo que entendi nesse exemplo e só para trabalhar com setarray() eu to trabalhando direto na dbf e não consegui com

oLbx:nAt,2, sera que tem algum outro jeito já que com oLbx:nRowPos) funciona mas só quando percorres a listbox.

Olá amigos, estou quebrando a cuca para algo que deve ser muito simples porem não sei como.

Tenho uma listBox e desejo que cada linha tenha um numero sequencial, quase consegui mas na tela aparecem todos números 1 e só depois que percorro a mesma os números vão aparecendo sequencialmente.Assim

Olá Judson, ve se serve pra vc.

DEFINE BITMAP opapel FILENAME "Image\evs.BMP" 

oWnd:bPainted := { | hDC | PalBmpDraw( hDC, 0, 0, oPapel:hBitMap,oPapel:hPalette,oWnd:nRight+2,oWnd:nBottom+2) }