indexar arquivo invertido

[matrix]

pessoal

preciso fazer um relatorio dos produtos + vendidos em qtd, entaum indexo o arquivo vendas pelo campo QUANTI, e blz fica em ordem de qtd, mas quero mostrar somente os 10 + vendidos, como organizar isso???

valeu

[anacatacombs]

Existem várias maneiras.
Você está dando um SEEK ou um GO TOP no loop principal?
Se tiver dando um GO TOP basta dar um GO BOTTOM e SKIP-1 no lugar do SKIP.
Aí é só fazer a condição pra sair do loop.
algo assim:
Select Tal tal
Set order to tal
GO BOTTOM
DO WHILE !BOF() .AND. CONTA < 10
//se houver filtros
// imprime o que tiver que imprimir
conta ++ // incrementa a cada vez que imprimir pra saber quando deu 10
SKIP -1
ENDDO

Funciona..
Espero ter ajudado.


[]'s
Ana

[Alessandro]

Caro colega

Você pode usar o comando DESCEND(), cria indices reversos.

Ou, caso seu arquivo seja muito grande, para evitar a criação de mais um índice, pode fazer o seguite:

Utilize o índice atual, vá para o final do arquivo e faça uma leitura regressiva até a quantidade de itens que desejar.

Valeu

Alessandro

[matrix]

valeu, entaum fiz o seguinte:

Indexei o arquivo pelo campo Quanti e fiz um laço mostrando os 10 registros de 10 a 0 ............agora preciso assim: agrupar os registros repetidos por exemplo uma venda de 2 parafusos na posicao 8 + 4 parafusos na posicao 5 entaum a soma dessas duas vendas irá pra posicao 1 no relatorio....

agradeço

[janio]

Matrix,

Faça o seguinte:

1-) Crie um índice CODPRD + DATEMI no seu arquivo de movimento;

2-) No seu relatório informe o período para pesquisa;

3-) Crie uma matriz com os dados da pesquisa;

4-) Organize a matriz pela ordem do produto mais vendido;

5-) Exiba quantos produtos quiser.

tipo:

Código: Selecionar todos

   SELECT DESDO
   DBSETORDER(3)
   GOTO TOP 
   DBSEEK(STR(CODPRD)+DTOS(vDATAi),.T.)
   DO WHILE !EOF() 

      SET RELATION TO CODPRD INTO PRODUTO

      IF EMPTY(DATEMI)
         SKIP
         LOOP
      ENDIF

      IF DATEMI < vDATAi
         SKIP
         LOOP
      ENDIF

      IF DATEMI > vDATAf
         SKIP
         LOOP
      ENDIF
      
      eCODPRD = CODPRD
      eDESCRI = PRODUTO->DESCRI
      eUNIPRD = PRODUTO->UNIPRD
      mSOMA   = 0

      DO WHILE CODPRD = eCODPRD
      
         IF EMPTY(DATEMI)
            SKIP
            LOOP
         ENDIF

         IF DATEMI < vDATAi
            SKIP
            LOOP
         ENDIF

         IF DATEMI > vDATAf
            SKIP
            LOOP
         ENDIF

         mSOMA  = mSOMA + QTDPRD

         DBSKIP()

      ENDDO       

      AADD( rPRODUTO, {eCODPRD, eDESCRI, eUNIPRD, mSOMA } )

   ENDDO

   ASort(rPRODUTO,,,{|x,y| y[4] > x[4], y[4] < x[4]})

   FOR i=1 TO 10
      SET RELATION TO CODPRD INTO PRODUTO
      @ PROW() + 01, 02 SAY STRZERO(rPRODUTO[i,1],5)
      @ PROW()     , 10 SAY rPRODUTO[i,2] PICT "@!"
      @ PROW()     , 60 SAY rPRODUTO[i,3] PICT "@!"
      @ PROW()     , 69 SAY rPRODUTO[i,4] PICT "@E 99,999.99"
   NEXT

   @ PROW() + 03,00 SAY PADC("****** FIM DO RELATORIO ******",79) 
   ? " "

Um abraço e... mãos a obra... :xau :xau :xau

Janio