PC Toledo

Código: Selecionar todos

  // procuro no banco por periodo
  dbseek(dInicio,.t.)

  // Inicializo a Matriz
  aMatrix := {}
  
  
  While dtos(dInicio) >= dtos(DATA) .and. dtos(dFim) >= dtos(data) .and. ;           !eof()
     nPos := ascan(aMatriz,{|x| x[1] == CODIGO })
     if nPos = 0
         aadd(aMatrix,{CODIGO,QTDE)
    else
        aMatrix[nPos,2] += QTDE
     endif

    dbskip()

  enddo


  aAsort(aMatrix,,,{|x,y| x[1] < y[1]})

  Set Device to Printer
  For i:=1 to len(aMatrix) 
    ? aMatrix[i,1]+" Qtde "+str(aMatrix[i,2],10,2)
  Next

  Set Device to Screen